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Robert Lock, Editor/Publisher, COMPUTE! Magazine 



We are pleased to present this addition to our First Book Series on 
personal computers. In these pages you'll find many articles originally 
appearing in the pages of COMPUTE! Magazine. These articles have 
been carefully chosen, mixed with some previously unpublished 
material, and collected here for the use and enjoyment of VIC owners. 
Whether you 're just starting with your \/IC-20 personal computer, or are 
a far more advanced user, you'll quickly discover this book is an essential 
addition to your computer library. 

As with our parent publication, COIMPUTE! Magazine, you'll find 
a range of material, from beginner to advanced, ready to type right into 
your computer. Programs and helpful hints designed to teach and 
entice you. Applications and utilities designed to help you better utilize 
and explore this fascinating world of personal computing. 

We've organized the material and designed the book for ease of 
use. We welcome your suggestions and comments on this and future 
titles from COMPUTE! Boole. 

Special thanks to Charles Brannon, Richard Mansfield, Tom 
Halfhill, and Kathleen Martinek of our editorial staff; Kate Taylor, De 
Potter and Terry Cash of our typesetting and production staff; Georgia 
Papadopoulos, Art Director; and Harty Blair, our illustrator. 



COMPUTE! Books is a division of Small System Services, Inc., 

Publishers of COMPUTE! Magazine. 
Editorial offices are located at 625 Fulton Street, P.O. Box 5406, 
Greensboro, NC 27403 USA. (919) 275-9809. 
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CHAPTER ONE 



The Story Of The VIC 

MICHAEL S.TOMCZYK 
Product Marketing Manager, Commodore International 

Commodore projects 1982 sales of over 1/2 million VICs 
in the US alone. This compares to a total of 800,000 
computers of all types sold last year in the US. Michael 
Tomczyk, one of the VICs founding fathers, describes 
the beginnings and the history of this popular 
computer. 

The \/IC-20 was first announced by Jack Tramiel - Commodore's 
founder and now Vice Chairman - at an international manager's 
meeting in London in April 1 980. There, at a quaint inn on the 
outskirts of the city, the representatives of half a dozen "Commodore 
countries" gathered to discuss problems and exchange ideas. 

We Will Become The Japanese 

On the second day of the meeting, Tramiel surprised everyone by 
announcing his intention to develop and market a "$300 personal 
computer." He rerriinded the group that Commodore was a pioneer 
in low-priced pocket calculators and had introduced the first self- 
contained personal computer - the PET - in 1 976. Now it was time 
to introduce a low-priced color computer. 

A debate ensued, with several groups talking simultaneously. 
Some felt it wasn't time for a computer priced that low. Others 
felt the new computer might undercut sales of the PET, and still 
others questioned whether it was economically and technologically 
feasible. 

Finally, about twenty minutes later, Tramiel stood up, pounded 
his fist once on the table, and said in his deep booming voice, "The 
Japanese are coming, so we will become the Japanese!" The room 
fell silent as he explained that several Japanese computer companies 
(known collectively as "Japan, Inc.") were already poised to enter 
the U.S. market. Japanese companies had already captured the 
television, radio, and small car markets, and personal computers 
were next on their list. 

He said we have to compete with ourselves by making com- 
puters that do more and cost less, and that meant breaking the $300 
price barrier. 
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The First $300 Color Computer 

We knew there was price resistance at the $300 price point: but how 
could Commodore make a $300 color computer profitably? Com- 
modore has one terrific advantage - vertical integration, which 
means we design and manufacture our entire product. Most impor- 
tant, it means we design and make our own computer chips, and 
computer chips are the heart of any computer. 

Many people still don't know that MOS Technology (a Com- 
modore subsidiary) developed the 6502 Microprocessor, the key 
computer chip used in Apple, Atari, and several other popular 
computers, in addition to Commodore. MOS also designed the 
Video Interface Chip, one of the key chips used in the VIC-20 
computer. 

When it was suggested that we create a computer based on 
the VIC chip, some of the engineers resisted the idea, claiming the 
chip was too "limited. " They scoffed at the idea of a VIC chip 
computer and complained that the VIC chip allowed only 22 columns 
on the screen compared to PET's 40 columns. 

Finally, two groups of engiheers, on the East and West coasts, 
wound up in a race to build a prototype computer using the VIC 
chip. At MOS in Pennsylvania, the designer of the VIC chip spent 
several sleepless nights building his prototype. He put the computer 
in an old Commodore desktop calculator housing and used a 
keyboard from one of the original PET computers. The original 
keyboard was a calculator-style keyboard with red metallic keys. In a 
few days, the prototype was done. 

Introducing The User-Friendly VIC 

The first prototypes were taken to the National Computer Convention 
in Chicago in June 1 980, but the new computers weren't put on 
display. They were set up at our booth in a room enclosed by tinted 
Plexiglas walls. Only a few people were allowed inside to see the 
new computer, but lots of noses pressed against the windows as 
passers-by peered in to get a glimpse of our new "secret" computer. 

The next job - my job - was to put together the marketing 
program to launch the product in the United States. We began with 
a very simple premise: computers are not perceived as being 
"friendly," so we have to make the VIC-20 as "user friendly" as 
possible, A lot of people chuckled because I waved the "user friendly" 
banner so forcefully. Some people even resisted the idea when I 
dubbed the VIC "The Friendly Computer" and trademarked the 
phrase. But in the end, "user friendliness" turned out to be the VIC's 
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^ most important feature. 

The first place I used the phrase "user friendly" was in an 

engineering meeting in Santa Clara, California. I began the meeting 
<^ by writing, in huge block letters on a greaseboard, the words user 

^ friendly. I then announced quite seriously, "Anything that doesn't 

meet this criterion will not be discussed in this room." 
■O It worked. Every time the discussion strayed, or someone 

^ suggested adding some complicated feature, I simply pointed at the 

board and the discussion fell right into place. It seemed that everyone 
^ knew what "user friendly" meant. 

^ Commodore engineers all picked up on the phrase and built 

some i/e/y friendly computing features into the VIC-20, like two 
^ graphic symbols on each key. I insisted that we put color abbreviations 

^ on the color control keys (you can blame me for using CYAN instead 

of LT. BLUE), and included an L-shaped pound sign for our English 
O friends. In Autumn 1 980, 1 took the "user friendly" banner to Japan, 

^ where we held engineering consultations and finalized the product. 

^ VIC...VICKIE...VIXEN... 

^ One of the hardest challenges was giving the VIC-20 its name. In the 

early days, the VIC-20 really didn't have a name. 

Most of the engineers liked the name Vixen. I even doodled 
^ some sketches using a cute little fox as a logo. The name Vickie was 

mentioned, too, but never seriously considered. Over the next few 

months we considered quite a long list of names which might be 
/-s, acceptable internationally. We all spent long hours thumbing 

through our thesauri searching for an obscure but clever name like 
^ Atari or a cute name like Apple. 

^ Finally, we decided to name the computer after the Video 

Interface Chip - VIC - which became Video Interface Computer. VIC 
sounded naked by itself, however, so we decided to add a number. 

^ But the only meaningful number was VIC-22 (based on its 22 

columns). For some reason, the number 22 didn't seem very friendly, 

1^ so we settled on the name VIC-20 because the number 20 sounded 

^ "friendlier." 

Ironically, as a sidenote, we originally vetoed the name Vixen 
because it had undesirable connotations in German, but VIC later 

^ turned out to mean something even worse. As a result, the German 

model was called VC-20 and translated as "Volks Computer" (the 
"People's Computer"). For awhile, the name "Volks Computer" was 
so well-liked that we considered using it worldwide, but the only 

^ U.S. tie-in was Volkswagen, and Volkswagens were no longer being 

^ 5 
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made. Except for Germany (\/C-20) and Japan (VIC- 100 1), we stuck 
with VIC-20. In the end, the short, snappy name turned out to be 
easy to remember, convenient for magazine headlines, and very 
"user friendly." 

The Japanese Didn't Come 

We first introduced the VIC not in the United States but in Japan, 
where the VIC's potential competition was already brewing. It was 
sort of like carrying coals to Newcastle, but we knew if the VIC 
succeeded in the Japanese market, it would succeed in the rest of 
the world. 

Our Japanese VIC, called the VIC- 1001, included uppercase 
English letters, PET graphics, and Japanese characters. It was intro- 
duced in September 1 980 at a major computer exhibit at Seibu 
Department Store in downtown Tokyo. Over 100 orders were taken 
the first day. 

When we introduced the VIC-20 in the U.S., in the spring of 

1981, we still expected some low-priced Japanese computers to hit 
our market by Christmas. Incredibly, that didn't happen. The Japanese 
didn't come! 

Instead, most Japanese companies ignored the low end of the 
market and entered the U.S. with higher priced computers in the 
S2000-6000 price range. As a result, throughout 1981 and most of 

1982, the Commodore VIC-20 was the first and on/y full-featured 
color computer priced under $300. 

A Computer Priced Liice A Video Game 

Personal computers had been available since the mid-1970s, but by 
1980 they still hadn't become a mass market item. Three major 
obstacles stood in the way: I ) computers were too expensive, 2) 
computers weren't very "friendly", and 3) nobody knew what to do 
with them! 

The long-awaited "Home Computer Revolution" had not 
caught fire, and the popular use of computers was limited to 
hobbyists, engineers, and classrooms. 

Our advertising started out comparing the VIC-20 to our closest 
competition, but we soon realized that there wasn't any competition 
at our price point. And those higher priced computers weren't selling 
very well anyway, so why compare the VIC-20 to them? Why not 
compare the VIC-20 to a product that was selling well, like video 
game machines? 

After all, the VIC-20 was selling for the same price as a video 
game machine, and VIC software includes cartridge games as well 
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as practical programs. In other words, why buy a video game when 
you can buy a full-fledged computer for the same price? That 
message became our advertising slogan. 

Actor William Shatner of "Star Trek" was chosen as our spokes- 
person, and in the first months of 1 982 we kicked off the largest 
advertising campaign in Commodore's history. Shatner introduced 
the VIC as the "Wonder Computer of the 80s," adding, "It plays 
great space games, tool" 

Commodore also negotiated a long-term arrangement for 
conversion of Bally IVIidway coin-operated games to cartridge - 
including best-sellers like Gorfand Omega Race. Sargon II Chess 
gave us one of the best chess games in personal computing, and 
five Scott Adams Adventure games gave us possibly the best assort- 
ment of adventure games available from a computer manufacturer. 
We also introduced a low-priced six-pack of games on cassette tape, 
with names like Blue Meanies From Outer Space. These games 
persuaded a lot of people to buy the \/iC-20. The next step was to 
take those VIC-owners from video games to other computing. To do 
that, we had to cross the second obstacle to mass market computing 
and make computing "friendly." 

Friendly Computing in Action 

Owning a personal computer used to mean you had to know how 
to program in BASIC. 

But user friendliness in marketing means giving the customer 
an item that requires little or no special expertise to use, apply, or 
enjoy. One way to do this is to include a really nice instruction book 
that lets you have fun and do interesting things without expensive 
peripherals or packaged software. 

You don't have to be an auto mechanic to drive a car. So why 
should you have to be a programmer to use a computer? 

The user friendly manual we wrote for the VIC-20 doesn't even ■ 
mention the word "programming" until the last chapter. Our manual 
teaches you how to "compute," which we interpret as meaning "to 
have fun." So we talk about cartoon animation, sound and music, 
color graphics, and other topics. We also wrote the book so you can 
turn to any chapter and start computing from that point, with little or 
no experience. If you want to write computer music, you turn to the 
music chapter and start there. If you want to work with color and 
graphics, you start with that chapter. 

What we didn't say is that if you work through the book, you'll 
learn how to program in BASIC, by osmosis, since most of our 
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examples included a very subtle introduction to programming. It 
was a sneaky - but helpful - way to ease new computer owners 
into the fundamentals of computer programming, and it meant new 
VIC owners had an excellent head start if they decided they wanted 
to learn computer programming. We also wrote a technical manual 
for programmers, called the V\C-20 Programmer's Reference Guide. 
This manual set the standard for future Commodore programmer's 
reference guides. 

What Do You Do With A Computer? 

The last obstacle to selling personal computers was that nobody 
knew what to do with them. This was the toughest challenge of all. 

The key point in using a computer is that if you can find one 
useful, interesting, or practical application, you've justified its use. 
However, everyone has his/her own special need for a computer, 
and that's what makes this challenge so difficult. 

One of the answers is to provide a useful selection of software. 
So, in addition to games, we introduced a Home Calculation Six-Pack 
and a Personal Finance program, and we developed some unique 
educational programs like the l-iome Babysitter canndge. which 
contains three separate skill building programs for pre-schoolers. 

We've also found that VIC owners are coming up with their 
own unique applications. A ninth grader wrote a program that 
keeps track of his paper route. A computer artist found a way to 
create new designs. A container executive uses the VIC to calculate 
complicated paper trim percentages. 

After owning his VIC for two months, one VIC owner wrote a 
program and sold it to Commodore. And he'd never used a computer 
before. 

A surprising number of people are taking up computing as a 
hobby, but they aren't really computer hobbyists, as hobbyists were 
defined a few years ago. These hobbyists aren't as technically 
inclined as those first hobbyists were in the )970s. And they don't 
have to be technicians. 

Remember the "chemistry set craze" in the 1 950s and '60s? 
Nobody expected to invent medical cures or split atoms with their 
chemistry set, but they sure had a lot of fun with them. The same 
holds true for the VIC-20, except that a lot of people are finding that 
their experiments often lead to some practical or creative applications 
they can use in their home, school, or business. 

Story Of The VlCmodem 

The device which lets you connect your computer to the telephone 
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is called a modem, but modems cost as much as $400. In 1 98 1 we 
wanted to develop a "VICmodem" which could retail for about 
SI 00, but no one wanted to build a modem we could sell for 
that price. Everyone wanted to "protect" their price levels, or felt it 
wasn't "time" for a hundred dollar modem, or that it was technically 
impossible. 

Finally, a small company that made industrial modems for food 
processing plants offered to help design our modem. After several 
tough sessions we came up with a modem on a cartridge which 
plugs directly into the \/IC-20 and connects to any modular telephone 
handset. A Nonmodular telephone adapter for connecting the 
modem into the wall phone socket was also designed for those 
who didn't own modular telephones, and for users in Canada. 

The final VICmodem includes a free subscription to and com- 
plimentary hour on CompuServe's information service (including 
"Commodore Information Network," a VICterm terminal program on 
tape) and several other special offers, all for only $109.95. VICmodem 
went on sale only six months from the day the original idea popped 
into our heads. 

VIC-20 As Home Appliance 

Computers had a hard time being accepted as retail home appliances 
because of the chicken and the egg phenomenon. For example, the 
VIC-20 couldn't be accepted as a home appliance until a housewife 
or student could walk into a department store and buy the VIC-20 
off the shelf, like a radio or an alarm clock. On the other hand, 
department stores weren't ready to put computers on their shelves 
until the general public was ready to come into their stores to buy 
computers off the shelf 

Commodore put together a consumer products team which 
went after the retail market and persuaded large department stores, 
toy stores, audio-video stores, and even discount chains to carry the 
VIC in large quantities. 

We provided regional training for store personnel, designed an 
in-store display fixture containing a full selection of VIC products, 
and put together co-operative advertising and other merchandising 
programs which appealed to mass merchandising chains. The result 
is that the VIC-20 is now being sold in places like Macy's, Toys R Us, 
and even K mart, and is included on the back cover and inside 
Montgomery Ward's catalog. 

What's next? There are some exciting surprises in VIC's future. 
And we will continue to produce new and better software for the 
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\/IC-20, including more "practical" software which most serious 
computerists will appreciate. 

The "story of the VIC" goes on. 



10 



CHAPTER ONE 



Computer Genesis: 

From Sticks And Stones 
To VIC 

DOROTHY KUNKIN HELLER / DAVID THORNBURG 



A history of computing, from tlie fingers and bones of 
cave dwellers to the VIC. 

In The Beginning: 

The human race has been working on the invention of the computer 
for quite some time. Centuries ago. Neanderthal man counted on 
his fingers to provide simple calculations (the primeval digital 
system) and, in emergencies, on his toes. Neolithic cave dwellers 
scratched strange linear patterns on bones, which anthropologists 
now believe to be primitive calculators. The stones at Stonehenge 
may also have served as astronomical computers to indicate the 
rising and setting points of the sun, moon, and other planets. 

From fingers and bones, rocks and stones, to UNIVAC, to 
Commodore's new sub-desktop persona! computer is a long evolu- 
tion - the end of a process of development that took hundreds 
of years - and, perhaps, the beginning of a new era in personal 
computing. 

B.C.: Before Computer 

Labor-saving devices to simplify the routine chores of "number- 
crunching" have preoccupied inventive minds throughout the ages. 
The abacus stands out as one of the more successful attempts, 
which was copied from the Chinese by the Greeks and Romans. The 
Western world contributed to the quest for automation by inventing 
the mechanical clock around 996 A.D., a device that calculates time 
by counting events. In the early 1400's, bankers and moneylenders 
used a simple, but effective method to count coins and compute 
interest -a checkerboard tablecloth (the original check]. 

In the 1 7th century, the process accelerated. Several kinds of 
calculators were developed in the 1 600's that were capable of 
handling routine computations. In 1624, John Napier, a Scottish 
mathematician, invented logarithms - tables of numbers that greatly 
simplified multiplication and division. He then developed a set of 
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rotatable wooden cylinders for multiplication l<nown as "Napier's 
bones." The "bones" could perform only trivial calculations, but 
were an economic success in that time of poor education. Related 
to the concept of logarithms, the slide rule was invented by an 
Englishman seven years later. 

Meanwhile, a German inventor designed, but never actually 
built, the first mechanical calculator that would add, subtract, 
multiply, and divide. 

It was Blaise Pascal, a French mathematical prodigy (and son of 
a tax collector), who constructed the first true calculating machine. 
The Pascaline was awkward by today's standards, but was a very 
clever innovation for the 1 7th century. With cogs and wheels, it 
added, subtracted, multiplied, and divided and then displayed the 
result in a window. 

However, no one bought it. Although the machine could make 
life easier for the underpaid clerks who performed the routine 
drudgery of 1 7th century accounting, these clerks wanted no part of 
the Pascaline, fearing that automation would cost them their 
livelihood. Employers anticipated that repair and maintenance on 
the Pascaline would be expensive, as was the initial investment. 
Since human labor was cheap and easily replaceable, the invention, 
although admired, remained unsold. 

Leibnitz, another brilliant mathematician, toyed with calculators 
and the concept of binary numbers, but failed to marry the two. He 
invented a "multiplier wheel," but became bored with it. He then 
became fascinated with the powerful potential of binary numbers, 
which make mathematical calculations possible using only two 
types of symbols: and I . (Eastern civilizations knew about binary 
notation centuries before the West, as shown in the / Ching. ) 

If Leibnitz had realized that the mass of complicated cogs and 
wheels necessary to run a machine like the Pascaline could be 
replaced with simple on-off levers, the age of B.C. might have ended 
in the middle of the 1600's. Christopher Evans speculates, in his 
book The Micro Millennium, that giant, steam-driven computers in 
the 1 8th century could have been one result. 

It was a French weaver from Lyons, Joseph Jacquard,'who 
finally came closest to a functional contemporary computer - the 
first automated device that used punched cards to store a program 
and control a machine. This device is still in use today. 

The "Programmed" Loom 

Joseph Jacquard had every right to become discouraged at an early 
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age. His first invention, at age 1 6, was smashed to smithereens by 
his fellow workers and he was dismissed from his job. His device to 
manufacture knifeblades panicked the workmen who earned their 
living making them by hand. Undeterred, Jacquard made his life's 
goal the invention of an automated loom. He worked on this 
invention for 20 years, supported by his wife who worked in a 
millinery shop. Jacquard was partly inspired by the automated toys 
of an earlier French inventor who had made a mechanical duck that 
ate, quacked, waddled, and digested, as well as an automatic chess 
player and flute player. 

Jacquard's career was almost cut off for the second time by the 
French Revolution. He first joined the anti-revolutionary forces and 
had to hide underground when the revolutionaries occupied Lyons. 
He then fled with his son, joined up with revolutionaries, and saw 
his son killed at his side. The Revolution and the ensuing unrest 
almost ruined Lyons, the center of the weaving industry in France. 
The weavers were saved only by government support to prevent 
France from losing the textile business entirely to England. In 1801, 
Jacquard won a government award of 20,000 francs for a machine 
that wove fishnets. Napoleon also gave Jacquard the job of repairing 
and arranging models and machines in the Conservatoire des Arts et 
IVIetiers. 

There he found the missing Bouchon loom, an earlier invention 
that guided warp threads by means of holes punched in cards - a 
complex and expensive method of automating the weaving process. 
Jacquard developed a machine based on this loom that is still in use 
today. Horizontal steel rods with springs at the end "sense" the 
holes punched in a rectangular piece of cardboard. When a rod 
"feels" a hole, it passes through and activates a mechanism for 
lifting the appropriate warp thread, which is then skipped in the 
weaving, while other threads are regularly woven. The hole-punching 
programs the pattern. 

Fearful of a return of the unemployment they had suffered 
during the French Revolution, mobs of working people attacked 
Jacquard. He attempted to reason: 

My loom will save Lyonnaise industry. At present, only the 
rich can afford our fabrics. Tomorrow, by the grace of my 
machine, all classes of society will use them. What you 
will lose you will get back double. I shall bring about a 
prosperity to the manufacturers that will be a source of 
well-being to the workers. 

The mob responded, "Yes, and while we wait we shall be 
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begging in the streets," and dunl<ecl Inim into tlie Rhone River. 

Several more attempts were made on Jacquard's life by 
threatened working people. 

The loom was finally used because of foreign competition; by 
1812, 11 ,000 automated looms were in operation in France. 

Jacquard was honored in 1 8 1 9 by the Chevalier d'Honneur. In 
1834, the English inventor, Charles Babbage, saw a portrait of 
Jacquard done in silk thread by a Jacquard loom with 24,000 cards, 
each punched with 1,050 holes. This inspired Babbage with the idea 
of "programming" his Analytical Engine with punched cards. 

The Weaver Of Numbers 

Charles Babbage spent his long life and considerable fortune in his 
quest to develop the Analytical Engine, a machine that could 
evaluate any mathematical formula and was designed to have most 
of the capabilities of a contemporary computer. 

Babbage first attempted a "Difference Engine" that would 
solve polynomial equations. He received the Royal Astronomical 
Society's first gold award, in 1 822, for his paper on "Observations on 
the Application of Machinery to the Computation of Mathematical 
Tables," and received grants from the British government for de- 
velopment. Many years and thousands of pounds later, the machine 
was still not functional because of mechanical difficulties. Slight 
imperfections in the hundreds of rods, wheels, ratchets, and gears 
that made up the complicated machine's working parts caused the 
whole system to break down or become inaccurate. In 1 833, the 
British government gave up on the project. Characteristically, Babbage 
responded by proposing an even more ambitious project. 

He proposed to construct a machine that had no fixed purpose, 
but could handle a variety of tasks based on the owner's instructions. 
The task was how to tell the machine what to do. to set up a 
unique sequence of internal activity, with each different task being 
tied to unique "patterns of action." In other words, a programmable 
computer. 

His actual machine never really worked, but it had all of a 
computer's component parts: input devices, a processor, a control 
unit, a memory, and an output mechanism - all mechanical, 
of course. 

Babbage was aided by a synergistic partnership with a remark- 
able woman, Ada, Countess of Lovelace, the first systems programmer 
in history. She was the daughter of the Romantic poet. Lord Byron, 
and an amateur mathematician who was known as "the Princess of 
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Parallelograms" in her youth. Ada was young, brilliant, but frustrated 
by her domineering mother and constricted Victorian home life. 

Babbage seems to have been a "right-brain," whimsical, 
inventive person. Ada was a "left-brain" person with (in her own 
words) "a clear, logical and accurate mind." They complemented 
each other perfectly. 

Ada's copious notes on Babbage's invention, according to a 
20th-century mathematician, "show her to have fully understood the 
principles of a programmed computer a centufy before its time." Ada 
translated and annotated a paper on the Anal>tical Engine written 
by an Italian engineer, L. F. Menabrea. While doing so, she discovered 
serious errors in Babbage's work. She also planned many problems 
(or programs) for the Engine to carry out; described plans to use 
punched cards for data input and output and to program the machine; 
and suggested a binary system of storage instead of the decimal 
system Babbage was using. 

Together, they started the continuing debate on the intellectual 
capacities of computers: can a machine think? Babbage personified 
the workings of his machine, and even wrote of its "feelings." Ada, a 
real systems programmer, unequivocally stated: "The Analytical 
Engine has no pretensions to originate anything. It can do whatever 
we l<now how to order it to perform. It can fc)//o\/i/ analyses; but it 
has no power of anticipating any analytical relations or truths. Its 
purpose is to assist us in making available what we are already 
acquainted with." 

Not lacking in poetry or imagination, she envisioned a future 
where machines could play music and beat human opponents at 
tic-tac-toe. She also described the Analytical Engine as a weaver of 
numbers: "We may see most aptly that the Analytical Engine weaves 
algebraical patterns just as the Jacquard loom weaves flowers and 
leaves." 

Ada died in agony of cancer at age 36, after a life of Victorian 
conflicts and scandals. Babbage lived on to see a Swedish engineer 
receive acclaim for producing a working model of the Analytical 
Engine, a project that Babbage himself was incapable of completing. 
He died a disappointed man, but not without making this prophetic 
comment: "As soon as an Analytical Engine exists, it will necessarily 
guide the future course of science." 

When 10 = 2, It's A Computer 

Babbage's invention was followed by a complex analog computer 
called the "Harmonic Analyser" by another British inventor. Lord 
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Kelvin. The Harmonic Analyser was capable of predicting tides years O 
in advance; and Kelvin produced an improved model in 1 876. 

In the United States, a much more important event in the annals 
of computerdom was taking place. Herman Hollerith and John <^ 
Shaw Billings conceived a punched card system for processing 
census data. Their system successfully tabulated the 1890 census in 
six weeks. What was even more significant for the future was the v_y 
company they formed, now known as IBM. 

The punched card method was a successful attempt to automate 
a process, but it wasn't a computer. Babbage and Lady Lovelace had 
provided clear specifications for a general-purpose computer, but 
the technology to build one that wasn't unwieldy, expensive, 
unreliable, and slow didn't yet exist. 

In the 1930's, scientists and engineers in several countries 
began working towards the technological advances that would 
make the computer a practical reality. In the United States, IBM and \j 
the Bell Telephone Company were working on the problems of 
computerization. Alan Turing, an English mathematician, published 
his paper "On Computable Numbers," generally agreed to be the 
single most important paper in the history of computer science (by 
those capable of understanding it). It was a rigorous mathematical 
demonstration that a general-purpose computer such as Babbage ^ 
had envisioned could be constructed. Turing was also a seminal 
figure in the development of "Colossus," the British codebreaking 
machine that may have enabled the Allies to win World War II. 

In Germany, a young graduate student skilled in mechanics and 
engineering, but with little background in advanced mathematics or 
electrical engineering, constructed the first automatic programmable 
calculating machine. Konrad Zuse realized, in 1936, that the binary 
system was best suited for automatic calculating machines and 
designed a method of representing binary digits through a system of 
mechanical relays. His abstract representation of binary code involved 
three switches: AND, OR and NOT. ^ 

Zuse's digital device resulted in the Z-1 computer. His Z-2 
featured electromagnetic circuits; his Z-3, an all-relay device. A friend 
and colleague, Helmut Schreyer, suggested that Zuse use vacuum 
tubes and later wrote a thesis on the subject that became lost in the ^ 
archives, largely unread. Had the Nazi military machine connected 
the capabilities of the Z-3 with Schreyer's inspired suggestion, this 
might have enabled Germany to win World War II. Zuse evacuated 
his Z-4 to Switzerland at the end of the war and then concentrated 
on theoretical work. His "Plan Kalkul" system of notation contains 
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many of the features of the higher level languages (BASIC, etc.) used 
today. Zuse also designed a hard-wired compiler and founded a 
company that was later absorbed by Siemens. 

While Zuse was working in Germany, a general-purpose 
computer was being built at the University of Pennsylvania. ENIAC 
(Electronic Numerical Integrator and Computer) contained over 
18,000 vacuum tubes and was hundreds of times faster than previous 
machines. However, it worked on a decimal rather than a binary 
system. It was massive and had a tiny memory. It was first pro- 
grammed by unplugging and rearranging pathrods, and had to be 
rewired each time a program was changed. Fortunately, a member 
of the ENIAC team happened to start a conversation with John Von 
Neumann, a world-famous mathematician, while both were waiting 
for a train. Von Neumann's contributions to the ENIAC project 
resulted in the development of the stored program, which, according 
to Christopher Evans, "is the major single factor which allowed 
computers to advance way beyond the power of ENIAC and its 
various contemporaries - a concept of fundamental importance." 

The First Mainframe 

The first of the mainframes was designed and contructed for the U.S. 
Government by two key members of the ENIAC team - Presper 
Eckert and John Mauchly. Said Eckert: "I had a skill in electronics, 
some knowledge of math, some knowledge of computers. John 
had greater skill in math and desk calculators... Our efforts synergis- 
tically allowed us to develop the first computer." 

Univac I, the first commercial computer, was delivered to the 
U.S. Census Bureau in 1 95 1 , the first electronic computer purchased 
by any government agency. (A. C. Neilsen & Co. almost bought 
UNIVAC to process opinion poll data, but backed out.) 

The UNIVAC team included another distinguished programmer 
who is still active in the field and holds the title of Commander in 
the U.S. Navy. Dr. Grace Murray Hopper, one of the early developers 
of COBOL, made an observation on programmers which led to the 
development of the first compiler. The UNIVAC programming team 
often had to copy code from each other's notebooks. "One of our 
startling discoveries, "she recalled, "was that programmers cannot 
copy things and programmers cannot add." 

Although UNIVAC was a major breakthrough, its capacity and 
speed were minimal by today's standards, and its physical size was 
alarming - part of a government building had to be knocked down 
to move it. However, UNIVAC's developers were major tradition- 
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breakers. "John (Mauchly) saw things really as what they were, not ^ 
what people told him they were," said Eckert. At a recent UNIVAC 
reunion, Grace Murray Hopper encouraged continued innovation: <J 
"There is one great danger in computing today," she said, "and that ^ 
is that phrase 'But we've always done it that way.' " 
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From The Garages Of Silicon Valley 

"Who could have imagined that the development of the integrated 
circuit would follow so soon after the invention of the computer?" ^ 
remarked Eckert in 1 980. ^ 

In 1 965, the integrated circuit - many components on a single 
piece of semiconductor - was introduced. In 1 97 1 , INTEL introduced ^ 
the first microprocessor chip, the 4004. The microprocessor was ^ 
designed to eliminate random logic in complex digital circuits, the 
goal being to reduce chip count. None of the manufacturers realized <^ 
at the time that the tiny, but potent, chip would open the door to a ^ 
whole new field. 

The 8080 eight-bit microprocessor was introduced by INTEL in 
1 974, as was the 6502 microprocessor chip by MOS Technology. In ^ 
the garages of "Silicon Valley," California, a small area of the southern 
San Francisco Peninsula where high-technology companies were <J 
beginning to replace the prune and cherry orchards, the computer ^ 
revolution had begun. In one home hobbyist workshop, Kentucky 
Fried Computer was born. After receiving an indignant letter "from ^ 
the Colonel, the new company changed its name to North Star. Also ^ 
in 1 974, IVilTS advertised computer kits built around the INTEL 
8080A. IVIITS ran out of stock after the first ad. Expecting to sell 800 <J 
kits in 1 975, they sold 2,000 and could not manufacture enough kits ^ 
to keep up with the demand. In 1 975, the first production microcom- 
puter appeared - the Altair 880. Another computer company was 
born in this year, but not in a garage. Lore Harp and her friend, 
Carole Ely, decided to go into business with Lore's husband. Bob 
Harp, an electronic engineer, designed a memory board that would ^ 
fit into other people's microcomputers and the team set up a work- ^ 
shop in Ms. Ely's bathroom. They shipped 4,000 boards in 12 months. 
Their company is now Vector Graphics; the two women became ^ 
President and Secretary/Treasurer. ^ 

The first personal computers appeared in 1977 - the Apple I 
from Apple Computer Company, Radio Shack's TRS-80, and <^ 
Commodore's PET. 

The PET, according to one commentator, "took the world by 
storm." In addition to its technical features, it was produced by the <j 
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first vertically integrated computer company. Commodore Interna- 
tional also owns an IC house, MOS Technology, whose 6502 chips 
appear inside almost all competitors. By 1978, Commodore had sold 
25,000 machines. The PET was even more successful in Europe and 
still maintains the largest installed user base of any personal computer 
in England and Germany. Commodore then introduced the CBM 
(Commodore'Business Machine) for business applications. 

By 1981, the 250,000th microcomputer was sold in the United 
States - a remarkable growth from zero, to hobbyist kits, to all-purpose 
personal computer. 

A New Era In Personal Computing 

Some observers contend, however, that the computer revolution 
hasn't really begun. Current microcomputers, they claim, are solely 
for businesspeople or hobbyists. The "technoid" mentality of the 
technological/hobbyist elite, who still control the computer estab- 
lishment, limits the personal computer as a real tool for the general 
public. Michael Tomczyk of Commodore stated the problem in 1980 
in Retail Computing: \he average (non-technical) consumer is 
intimidated by the computer, and the technical jargon and aura that 
surround it, and is unclear about the uses that would justify a sales 
price of several thousand dollars. Microwave ovens heat food faster, 
television (theoretically) entertains, washing machines wash: but 
what is a "personal computer" for? 

To bridge the gap between the "technoid" personal computer 
and the mass electronic tool of the future. Commodore introduced 
the y\C-20 sub-desktop model in March 1 981 . In advance of the 
anticipated "Japanese invasion" of the U.S. computer industry. 
Commodore is manufacturing the VIC in Japan and marketing it 
here as a direct competitor to Japanese computers on their home 
ground. 

What is more significant to the thousands of new computer 
users who are buying the \/IC-20 is that it is easily accessible to them 
both economically and technically -perhaps the beginning of a 
new era in personal computing. 
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Super Calculator 

JIM BUTTERFIELD 

VIC has special functions similar to an advanced 
scientific calculator that you can easily use from the 
keyboard. 

Everyone knows that you can load-programs into the VIC and get 
some pretty clever things to happen. Don't forget that your VIC can 
also do useful tasks without any programs at all. 

The technique is called Direct Statements. These are lines that 
you type without a number at the beginning. For example, if you 
type PRINT "HELLO" or just ? "HELLO" for short, VIC will obligingly 
print HELLO. Not too useful, but we're just warming up for the good 
stuff. 

Quick arithmetic is easy to do. To add five and six, type PRINT 
5 + 6. It works just as you expect it to. 

VIC uses an * (asterisk) character to signify multiplication, and a 
/ (slash) for division. So PRINT 2*3/4 gives you an answer of 1 .5 as 
you would think. By the way, you'll quickly learn that VIC ignores 
spaces: PRINT 2*3/4 gives the same result, and you may feel that 
it's neater. 

When you start mixing multiplication/division with addition and 
subtraction, you'll need to get used to a quick VIC trick: it always 
performs the multiplication and division first. This means that PRINT 
2*3 + 4*5 will produce 26 (6 plus 20), not 50 as you might think at 
first. If you really wanted to multiply by five you could always force 
VIC to see things your way by using brackets: PRINT (2*3 + 4)*5 
makes it work. You can use multiple brackets if you wish: PRINT 
((2 + 3)*4)+5 is quite acceptable, and PRINT (2 + 3)*{4 + 5) produces 
the expected answer of five times nine or 45. Remember that you 
must close the brackets as many times as you open them, or you 
may get the dreaded 7SYNTAX ERROR notice that tells you you've 
done something dumb. If you'd rather be exact about brackets 
and call them parentheses, that's OK -just remember to use them 
correctly. 

You'll quickly discover that you can raise a number to a power 
with the upward arrow: PRINT 2 4^3 gives you two cubed, which is 
eight. Powers are always performed before multiplication, division. 
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addition or subtraction - unless you use brackets. By the way, you'll 
discover that powers of a number have one very nice feature: the 
sign of a number is handled correctly in almost all cases. If you have 
a mathematical bent, you can probably guess what will happen if 
you raise a number to a fractional or negative power; if you don't, 
you might like to try it anyway and see what happens. One last 
thing about powers: they don't work out exactly in all cases: three 
raised to the fourth power might give you a value just a shade 
higher or lower than 8 1 . 

We've still only just begun. VIC has special functions similar to 
an advanced scientific calculator. For example, PRINT SQR(5) calcu- 
lates and prints the square root of five. You have quite a few 
trigonometric functions: SIN, COS, TAN and the arctangent ATN if 
you need them, but be careful: they are worked from angles in 
radians. If you measure your angles in degrees, be sure to convert 
using a factor of pi/1 80: for example, the sine of 30 degrees is 
calculated with: PRINT SIN(30* tt /1 80). For the math whiz, there are 
logarithms and exponentials using the LOG and EXP functions. If 
you use these, you'll need to know that they are natural logarithms. 
If you prefer to use unnatural logarithms (base 10), use a factor of 
LOG( 1 0) to divide or multiply: the common log of two can be 
calculated with PRINT LOG(2)/LOG(10). 

Memories 

Calculators use memories, and VIC, the super-calculator, gives you 
lots of memory. You get to name your memory: type A = 1 7 and the 
value of 1 7 is stored into a memory location called A. Later, you can 
use this value in other calculations such as PRINT A +9. You can 
change the memory value at any time with a statement like A = 14. 
You can add or subtract to it with unusual (at first) syntax such as 
A=A + 4orA=A — 1 1. When you do this kind of thing, remember 
that the new value is set only after the calculation is complete. So if 
A equals 5, the expression A = A*3-A would calculate five times three 
minus five, and then set the result (ten) into memory location A. 

You may name memory locations (called "variables" in the VIC) 
almost anything you like: for example, HENRY = 7 will work. You'll 
be much better off to use a single letter (A, B, C, etc.) or a letter 
followed by a number (D9, IVI4, etc.) since VIC can get confused 
with certain combinations of letters. For example, TANK would get 
mixed up with the TAN function. 

One last thing: memory can get wiped out very easily in the 
VIC. Certain commands like NEW and CLR will do it; and typing 
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in any line starting with a line number will clear all the variables. ^ 
Be careful. 

Multiple Calculations ^ 

If you want to calculate several things, you can do it with a single 

PRINT command. Just put a semicolon (;) or a comma (,) between ^ 

the expressions you want to calculate. For example: PRINT 

3 + 5,3*5,3/5 calculates three values and prints them neatly on a 

single line. If you used the semicolon: PRINT 3 + 5;3*5;3/5 the values ^ 

would be printed close together rather than in neat columns. 

You can put several commands together on a single line, 
separated by a colon (:) character. To add a value of one to variable 
X, and then print X+ 4, you might type, X=X + I: PRINTX+4. The ^ 
colon will separate the statements so that VIC will understand that 
they are to be performed separately. ^ 

Repeating Calculations ^ 

If you can ask VIC to do something once, you can ask for the same 
calculation to be performed many times. All you need to do is put 
the job you want done between the two following statements: FOR ^ 
J = I TO ... : ... (your statement) ... : NEXT J. ^ 

Beginners like to see their name printed many times. They 
should code: FOR J = I TO 1 00 : PRINT "JOE":NEXT J to have the ^ 
name JOE printed one hundred times. Since each name is printed 
on a separate line of the screen, there won't be room for all those 
JOEs. Try changing the PRINT statement by adding a little extra ^ 
punctuation after JOE - for example, PRINT "JOE", with a comma, ^ 
or PRINT "JOE"; with a semicolon. (Make sure the punctuation is 
outside the quotation marks.) You have a lot of control over how ^ 
things appear on the screen. 

It doesn't seem to make much sense to print a fixed calculation 
such as the square root of ten over and over again. We have much ^ 
more flexibility than that. As the central statement repeats, the value 
of the variable (J in the example above) will step through the values 
we have shown (I to 1 00). You may use this variable as a memory O 
value and calculate with it. To print a table of the square roots of [, 
numbers from ten to twenty, code: FOR J = 1 TO 20 :PRINT J,SOR(J) 
:NEXT J and the job will be done. ^ 

Remember that everything between the FOR and NEXT state- ^ 
ments will be repeated with the value of the variable (J in this case) 
stepping through its range. Don't forget that you can use any O 
variable name you like: FOR M = 3 TO 7 is perfectly good so long as ^ 
you say NEXT M at the point that you want to go back and repeat. 

KJ 
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Using Direct Statements 

Direct statements are a good way to learn some of the simple rules 
of BASIC, and they are handy for quick calculations, too. 

When you start writing BASIC programs, you'll find it handy to 
try some of the program lines as direct statements first, to make sure 
that they work properly. And if your program gives you trouble and 
stops, you'll find that statements from the program, entered in Direct 
mode, can give you a hint as to what's going on. 

But no matter how advanced you get in your programming 
adventures, don't forget what a zippy little calculator you have at 
your fingertips. 
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Large Alphabet 

DOUG FERGUSON 

Using custom characters and a special feature of tiie 
VIC, you can program large, double-height characters. 

There are many exciting applications for the 64 programmable 
characters on the VIC-20. David Malmberg's "Custom Characters" 
[reprinted in this bool<] explains fully how the VIC can generate 
programmable characters merely by changing the contents of 
memory location 36869 (decimal), and by redefining the 64 eight-pixel 
tall characters beginning at 7168. 

Another interesting memory location in the VIC is nearby: 
36867. Changing its contents creates double-sized characters. By 
POKEing a 47 into 36867, the bottom border of the screen drops out 
of sight and vertically paired characters occupy "stretched" screen 
locations. After clearing the screen, type an A and get I . Actually, the 
VIC'S first character is the "@" (screen POKE 0) which yields <-'^ . 
Continue to type the alphabet and see how the stacked letters 
follow a pattern. To return to normal, POKE 36867,46 or hit the 
RESTORE and RUN/STOP keys simultaneously. 

I set about to combine these two ideas so that I could get a 
large alphabet. I painstakingly reprogrammed the B to look like the 
top of a stretched "A" and the C to look like its matching bottom 
half. Continuing for nearly two hours, I made it to the "O" and gave 
up for the night. 

Somehow, the clear light of day the next morning directed me 
toward a much simpler approach; if the characters already reside in 
ROM, just read each eighth of a character twice into the RAM space 
for programmable characters to program two letters at a timel 

Clearly, only 32 such stretched characters can be made since 
only 64 unstretched characters can be readily programmed. The 
space key and all the numerals fall in the wrong half of the 64, but 
all 26 letters of the alphabet can be stretched with the following, 
suprisingly short, program; 

10 POKE 56,28 : REM RELOCATE END-OF-MEMORY PO 
INTER 

20 CH=32776 : REM LOCATION OF ALPHABET IN R 
OM 
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30 FOR X=7184 TO 7600 STEP 2 : REM ALPHABET I 
N RAM 

40 POKE X,PEEK (CH) :POKE X+1 , PEEK (CH) : REM STRE 
TCH 

50 CH=CH+1:NEXT X : REM LOOP 

60 POKE 36879,25 : REM NO MORE BORDER 

7 POKE 36869,255 : REM PROGRAMMABLE CHARACTE 

RS 

8 POKE 36867,47 : REM STRETCHED CHARACTERS 
90 PRINT" {CLEAR}ABCDEFGHIJKLMNOPQRSTUVWXYZ":E 

ND 

Lines 20 through 50 read the normal alphabet (8x8 pixels) out 
of ROM and into RAIVl. Since RAIVI is also where a longer program 
will do its work, line 10 tells the computer not to go beyond 7168 
(28 times 256). Line 60 is for the purist who notices the lack of a 
bottom border with the "normal" screen. 

Simple? Certainly. The biggest drawback is the lack of numerals 
and spaces. In string variables with spaces, e.g., AS = "HELLO 
THERE", the space can be replaced by the symbol for cursor-right. 

The applications of this large alphabet program are left to the 
reader. Although it is obvious that any characters can be programmed 
for stretching, only the alphabet (and a few insignificant symbols) 
can be programmed in a way that an exact keyboard-to-character 
correspondence can be realized. 
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Using A Joystick 



A collection of programming hints, with two games to 
illustrate them - "Sketch" and "Spacewar." Temporarily 
changing line 1 40 of Spacewar to 1 40 POKE52,28:POKE ^ 
56,28:CLR will allow you to make changes and RUN the 
program without running out of memory. 



O 

The designers of the VIC showed forethought and unselfishness ^ 

when they designed it to use widely available Atari peripherals. 

Specifically, the Atari light pen, game paddles, and joystick can be ^ 

plugged into the VIC game port and used to create some very ^ 

exciting programs. However, the mechanics of just how to use these 

peripherals in a VIC program have not yet been documented by 

Commodore in the United States. ^ 

After briefly describing how joysticks work in general, we'll 
discuss a program which allows you to draw either lines or graphic <J 
characters in any color on the VIC screen, using the joystick to ^ 
control the direction of the drawing. Finally, this article presents an 
exciting and action-packed version of the arcade game "Spacewar" ^ 
in which joystick control is critical to making the game easy and fun ^ 
to play. After studying these two programs, you should be a joystick 
"expert" and should be able to easily incorporate the joystick into ^ 
your own VIC programs. 

How Joysticks Work 

All joysticks work using one of two basic approaches. The first 
approach has the relative position of the joystick control two voltages 
- one corresponding to the horizontal displacement of the joystick ^ 
and the other corresponding to the vertical displacement. This is 
done by having the joystick attached to two potentiometers whose ^ 
resistances are determined by the position of the joystick. The output 
voltages are then read into a device that can convert the analog 
voltage to a digital value the computer can understand. Using this <J 
approach, it is possible to have the joystick determine a specific ^ 
position on the screen. For example, if the x-voltage (horizontal) and 
y-voltage (vertical) both ranged from zero to five volts, an x reading ^ 
of zero volts and a y reading of 2.5 volts would correspond to the ^ 
first column and middle row of the screen. The VIC does not use this 
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technique for the Atari joystick, but it does use this approach for 
reading the game paddles - so it would be possible to set up this 
type of joystick for the VIC by reading the x and y voltages as if they 
were different game paddles. 

In contrast to reading a specific screen position by its x and y 
coordinates, a second approach reads the joystick's direction. This is 
the design philosophy used in the Atari joystick. It does this by 
reading a series of switches corresponding to the basic^ompass 
directions as shown in the following diagram: 

Figure 1. 5' 




For example, if the joystick is pushed north (up or forward) as 
shown in the diagram, switch J3 will be closed and all other switches 
will be open. If the joystick is pushed on the diagonal, the two 
nearest switches will be closed simultaneously; e.g., J I and J2 will 
both be closed if the joystick is pushed to the southwest. Notice that 
these switches imply only the direction of the joystick and that it is 
up to the program to keep track of any corresponding screen position 
or movement. 

To see how to make the VIC read these switches, plug in your 
joystick and enter and run the following short program: 

10 DD=37154:P1=37151 :P2=37152 
20 PRINT" {CLEAR} {DOWN} N E S W FB" 
30 GOSUB 100:PRINT"{HOME}"; J3;J0;J1;J2;FB 
40 GOTO 30 

100 REM SUBROUTINE TO READ JOY SWITCHES 
110 POKE DD,127:P=PEEK(P2)AND128 
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120 J0=-(P=0) 

130 POKE DD,255:P=PEEK(P1) 

140 J1=-((P AND 8)=0) 

150 J2=-( (P AND 16)=0) 

160 J3=-((P AND 4)=0) 

170 FB=-( (P AND 32) =0) 
180 RETURN 

As you run the program you will notice that, whenever you 
push the joystick in a particular direction, the corresponding compass 
direction(s) will change from a zero to a one. Similarly, whenever 
you push the fire-button, it changes to a one - no matter which 
direction the joystick is being pushed at the time. 

The reason why and how this short program actually works is 
beyond both the scope of this article and the interest level of most 
readers. I will leave it to Commodore to explain more fully whenever 
they issue their documentation on the joystick. Suffice it to say, it 
does worki 

Make A Sketch 

Program 1 is a simple program that illustrates the use of the VIC 
joystick to draw either lines or graphic characters on the screen in 
any color. While the program is running, you may control your 
artistic endeavors by: 

• Hitting an "L" to change from graphics to lines 

• Hitting a "C" to start all over again with new options 

• Pressing the fire-button to clear the screen 

• Hitting any color key to change color 

• Hitting any other key to change to its graphic character 

Let's review this program line by line to learn how to use the 
joystick effectively. Lines 140 and 150 define some of the important 
VIC locations and parameters as variables. Not only does this save 
memory by requiring fewer bytes to reference these values later, but 
it is also faster because the VIC can look up a variable in its variable 
table much quicker than it can decode that same value expressed as 
a constant. C is the number of columns on the VIC screen; i.e., 22.R is 
the number of rows. S is the starting location of screen memory. A is 
the constant that must be added to a particular screen memory 
location to get its corresponding color matrix location; i.e., S+A is 
the start of the color matrix. DD, PI and P2 are the same values as 
used in the short program above to allow us to read the joystick. SB 
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is the location that is POKEd to set the screen and border color 
combinations. V is the volume location for the sound and SI is one 
of the sound "voices." 

The values in the matrix L%(U), as defined in lines 160 and 
1 70, contain the values that, when POKEd to the screen, draw a line 
at a certain angle. Specifically, L%(U) contains these screen poke 
characters: 

Figure 2. 



These values will be used later when drawing lines on the screen. 

Line 180 defines two very useful functions. FNA calculates the 
screen memory location corresponding to any row (Y-value) and any 
column (X-value). FNC is the corresponding color matrix location. 

Lines 1 90 to 360 give instructions (if desired) and then ask for 
the initial values of the various user options, such as color, starting 
drawing location, character, speed, etc. Line 370 sets the screen and 
border colors to whatever combination has been specified and then 
also clears the screen. 

Line 390 is the beginning of the main processing loop and 
GETS any key that is hit. If a key has been hit, lines 400 to 440 change 
to drawing lines, change color, clear the screen and start over, or 
change the graphic character being drawn - whatever is appropriate. 
If no key were hit, the program would jump to line 450 which is a 
GOSUB680. This subroutine is essentially the same one used in the 
short program above to read the joystick switches. 

After returning from the joystick subroutine, lines 460 to 510 
determine the current relative directions, DX and DY, and the new 
screen coordinates, X and Y. DX is -1, 0, +1 if the joystick is left, 
center, or right, respectively. Similarly, DY is - I, 0, or + I if the joystick 
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is up, center, or down. Lines 530 to 560 check and restrict tlie values 
of X and Y to values within the screen border. 

If the program is drawing lines (i.e., the line flag L has been set 
to I ), line 570 sets the current pol<e character, CR, to the appropriate 
matrix value of L%(DX+ 1,DY+ I ). For example, if the joystick is 
being pushed northeast, DX will be + I, and DY will be -1, and 
the value of L%(2,0) is a poke character of a line going up and to the 
right. 

Lines 580 and 590 POKE the reverse of the current character 
(CR + 1 28) at the current screen coordinates, POKE the current color 
into the corresponding color matrix location, and sound a hi-note for 
DL jiffies (i.e., a 60th of a second). Lines 610 to 630 POKE the current 
character (not reversed) at the current screen coordinates, sound a 
lo-note for another DL jiffies, then turn off the sound. Line 640 loops 
back to the beginning of the whole process at line 390. 

Spacewar 

Programs 2 and 3 contain a version of the classic arcade game 
"Spacewar" which absolutely requires a joystick in order to maintain 
both the speed and sense of excitement of the original game. The 
game is in "hi-res" using the VIC's custom character feature {Home 
and Educational COMPUTING!, Summer 1 981 ) and is a reasonably 
close copy of the original game. 

In the game, you command a single spaceship (using the 
joystick, of course) against a kill-crazed, kamikaze IVIingon. There are 
nine levels of play, ranging from trivial to impossible. You must shoot 
him (using the fire-button) before he gets you. There are asteroids, 
black holes, and the sun's gravity to add complications. If you get 
desperate, you can try a hyperspace jump - but there is no guarantee 
you will survive. 

I will not attempt to describe "Spacewar" on a line-by-line 
basis. But, as you key it in, you will recognize most of the joystick 
techniques used in "make a sketch." The code is difficult to follow 
because of the short variable names and the dearth of REMs - all 
necessary to enable it to fit in the VIC's 3.5K of memory. 

1 used one other memory-saving trick that might be of interest. 
The program is actually written in two separate parts. Program 2 
gives instructions, asks for the various game options, loads the 
custom character set into hi-memory, and then resets the memory 
pointers to protect the special character set. Then this part of the 
program automatically loads and begins execution of the second 
part. Program 3, which is the actual game. This trick is done in line 



30 



CHAPTER ONE 



21 90 of Program 2 which POKEs the keyboard buffer with the 
commands NEW, LOAD and RUN. When the VIC encounters the 
END at the end of line 2190, it quits executing Program 2 and then it 
checks the keyboard buffer for additional commands, which it 
executes as if they were keyed in directly by you. This enables 7K 
worth of programming to appear to fit into a 3.5K VIC. You should 
keep this trick in mind whenever you have a program that just will 
not fit in the VIC's limited memory. 

After studying these two programs you should be a joystick 
master and be able to easily incorporate the joystick into your own 
VIC programs. This will make your programs both more interesting 
and more exciting. 



Program 1 . Make a Sketch. 

100 REM VIC MAKE-A-SKETCH USING JOYSTICK 

110 REM BY DAVID MALMBERG 

120 REM 43064 VIA MORAGA 

130 REM FREMONT, CALIFORNIA 94538 

140 C=22 : R=23 : S=7680 : A =30720 : DD= 

37154 : Pl=37151 : P2=37152 
150 SB=36879 : V=36878 : Sl=V-2 : DIML%(2 

,2) 

160 FOR I=0TO2 : FOR J=0TO2 : READ L%(I,J 

) : NEXT J, I 
170 DATA 77,64,78,93,46,93,78,64,77 
180 DEF FNA(Z) = S+ (X-l ) +C* (Y-1 ) : DEF FN 

C(Z) = FNA(Z) + A 
190 PRINT" {CLEAR} {REV}MAKE-A-SKETCH{0 

OFF}" : INPUT" {02 DOWN} INSTRUCTI 

ONS N{03 LEFT}", -AS 
200 IF A$="Y" THEN GOSUB720 
210 POKESB,27 : PRINT" {CLEAR} {REV}MAKE-A- 

SKETCH OPTIONS{OFF}" 
220 PRINT" {02 DOWN}ENTER BORDER COLOR" : ~ 

GOSUB650 

230 BR = VAL(A$)-1 : IF BR<0 OR BR>8 THEN 
220 

240 PRINT" {DOWN}ENTER SCREEN COLOR" : GOS 
UB650 

250 BC = VAL(A$)-1 : IF BC<0 OR BC>8 THEN 
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240 O 
260 PRINT" {DOWN} DRAWING SPEED ?" : PRINT" 

{ REV} 0{ OFF} -FAST TO {REV}9{0FF}- ^ 

SLOW" : GOSUB650 
270 DL=VAL(A$) 

280 PRINT" {DOWN} START IN CENTER ?" : GOSU ^ 
B650 ^ 
290 IF A$="Y" THEN X=10 : Y=ll : GOTO340 
300 INPUT" {DOWN} STARTING ROW 8{03 LEFT}" ^ 

;Y ^ 

310 IF Y>22 OR Y<0 THEN 300 

320 INPUT" {DOWN} STARTING COLUMN 8 {03 LEF ^ 
LEFT}";X W 
330 IF X>23 OR X<0 THEN 320 

340 PRINT" {DOWN}STARTING CHARACTER ?":PRI ^ 
NT"{REV}L{OFF} WILL GIVE LINES": ^ 
GOSUB650 

350 CR=ASC(A$) : L=0 : IF A$="L" THEN L=l ^ 



RS SCREEN 

510 X=X+DX : Y=Y+DY : REM NEXT COORDINATE 
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360 PRINT" {DOWN} STARTING COLOR ?":GOSUB65 

0:CL=VAL{A$)-1:IF CL<0 OR CL>8 T 

HEN 360 G 
370 POKESB,16*BC+BR+8 : PRINT" {CLEAR} " 
380 REM BEGINNING OF DRAWING LOOP 
390 A$="" : GETA$ : IF A$="" THEN 450 Q 
400 IF A$="L" THEN L=l : GOTO450 : REM US 

ES LINES ^ 
410 IF A$>"0" AND A$<"9" THEN CL=VAL(A$)- Q 

1 : GOTO450 : REM NEW COLOR 
4 20 IF A$="C" THEN 210 : REMSTART OVER ^ 
430 NC=ASC(A$)" : IF N0127 THEN ' 390 : REM Q 

INVALID CHARACTER 
440 CR=NC : L=0 : REM CHANGE CHARACTER ^ 
450 GOSUB680 : REM READ JOYSTICK SWITCHES 
460 DX=0 : DY=0 : IF J0 THEN DX=1 

470 IF Jl THEN DY=1 ^ 
480 IF J2 THEN DX=-1 Q 
490 IF J3 THEN DY=-1 

500 IF FB THEN 370 : REM FIRE BUTTON CLEA ^ 
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520 REM TEST AND ADJUST FOR SCREEN BORDER 

530 IF X<1 THEN X=l 
540 IF X>C THEN X=C 
550 IF y<l THEN Y=l 
560 IF Y>R THEN Y=R 

570 IF L THEN CR=L% (DX+1 ,DY+1) : REM LINE 
CHARACTER 

580 TT=TI : POKE FNA(0) ,CR+128 : POKE FNC 

(0),CL : REM POKE REVERSE 
590 POKE V,15 : POKE 81,225 : REM HI-SOUN 

D 

600 IF TI-TT<DL THEN 600 : REM SPEED DELA 
Y 

610 TT=TI : POKE FNA(0),CR : POKE SI, 135 " 

: REM NORMAL CHARACTER 
6 20 IF TI-TT<DL THEN 620 : REM ANOTHER DE 

LAY 

6 30 POKE V,0 ; POKE S1,0 : REM SOUND OFF 
640 GOTO390 : REM END OF LOOP 

6 50 A$="" : GETA$ : IF A$="" THEN 650 
660 RETURN 

670 REM SUBROUTINE TO READ JOYSTICK SWITC 

HES 

680 POKE DD,127 : P=PEEK (P2) AND128 : J0=- 
(P=0) 

690 POKE DD,255 : P=PEEK(P1) : J1=-((PAND 

8)=0) 

700 J2=-( {PAND16)=0) : J3=- ( (PAND4) =0) 

710 FB=-( (PAND32)=0) : RETURN 

720 PRINT" {CLEAR} {REV}MAKE-A-SKETCH{OFF} ' 

ENABLES" 
730 PRINT"YOU TO DRAW LINES OR" 
740 PRINT"GRAPHIC CHARACTERS ON" 

7 50 PRINT"THE VIC SCREEN USING" 

7 60 PRINT" A JOYSTICK." 

770 PRINT" WHILE YOU ARE DRAWING" 
780 PRINT" YOU MAY CONTROL THE" 
790 PRINT"ART IN THESE WAYS:" 

8 00 PRINT" Q - HITTING AN 'L'" 
810 PRINT"CHANGES TO LINES" 

8 20 PRINT" Q - HITTING A 'C'" 
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—————— o 

O 

8 30 PRINT" STARTS ALL OVER" O 
840 PRINT" Q - PRESSING THE" 
8 50 PRINT" FIRE-BUTTON CLEARS" 
860 PRINT"THE SCREEN" ^ 

8 70 PRINT" Q - HITTING A COLOR" 
880 PRINT"KEY CHANGES COLOR" 
890 PRINT" Q - ANY OTHER KEY" ^ 
900 PRINT"WILL CHANGE THE" 
910 PRINT"CHARACTER BEING DRAWN" 
920 PRINT" {DOWN}PRESS {REV}RETURN{0FF} " : U 

GOSUB650 

9 30 RETURN 
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Program 2. Spacewar Part 1 . 

100 POKE36879,27:PRINT"{CLEAR} VIC SP 

ACEWAR" ^ 

110 PRINT" {02 DOWN} BY DAVID MALMBERG" 

120 REM 43064 VIA MORAGA 

130 REM FREMONT, CALIFORNIA ^ 

140 X=PEEK (56)-2:POKE52,X:POKE56,X:POKE51 Q 
,PEEK (55) :CLR 

150 CS=256*PEEK(52)+PEEK(51) :S=7680 ^ 

160 FORI=CSTOCS+511:POKEI,PEEK{I+32768-CS r. 
):NEXT 

170 READ X:IFX<0THEN200 W 
180 FORI=X TO X+7:READJ:P0KEI,J:NEXT ^ 
190 GOTO170 

200 INPUT" {02 DOWN} INSTRUCTIONS N{03 O 

LEFT} "; A$ 
210 IFA$="N"THEN2000 
220 PRINT" {CLEAR}YOU ARE ENGAGED IN A" O 
230 PRINT"BATTLE TO THE DEATH" 
240 PRINT"WITH A KILL-CRAZED," 
250 PRINT"KAMIKAZE MINGON IN" 
260 PRINT"THE ASTEROID BELT OF" 
270 PRINT"MONGO. " 
280 PRINT" {DOWN}YOUR SHIP IS PURPLE" <J 
290 PRINT"AND THE MINGON SHIP" 
300 PRINT" IS DARK BLUE." 
310 PRINT" {DOWN} THE JOYSTICK CONTROLS" U 
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320 PRINT"YOUR DIRECTION. THE" 
330 PRINT"RED BUTTON FIRES YOUR" 
340 PRINT"LASER MISSILES. MAKE" 

3 50 PRINT"A HYPERSPACE JUMP BY" 
360 PRINT"PRESSING THE SPACE" 
380 PRINT" BAR." 

390 PRINT" {DOWN}PRESS ANY KEY" 
400 A$="" :GETA$:IFA$=""THEN400 
410 PRINT" {CLEAR}YOU LOSE THE BATTLE" 

4 20 PRINT" IF YOU:" 

4 30 PRINT" {DOWN} Q ARE BLASTED BY A" 
440 PRINT" MINGON'S LASER" 
450 PRINT" {DOWN} Q ARE SUCKED INTO A" 
460 PRINT" BLACK HOLE" 
470 PRINT" {DOWN} Q COLLIDE WITH AN" 
480 PRINT" ASTEROID" 
490 PRINT" {DOWN} Q ARE PULLED INTO" 
500 PRINT" THE SUN BY GRAVITY" 
510 PRINT" Q ARE RAMMED BY THE" 
520 PRINT" MINGON SHIP" 
530 PRINT" {DOWN}PRESS ANY KEY" 
540 A$="" :GETA$:IFA$=""THEN540 
2000 PRINT" {CLEAR} ENTER SKILL LEVEL" 
2010 PRINT" {02 DOWN} {REV}1{0FF} - TRIV 

lAL" 

2020 PRINT" {DOWN} TO" 

2030 PRINT" {DOWN} {REV}9{0FF} - IMPOSSI 

BLE" 

2040 A$="" :GETA$:IFA$=""THEN2040 
2050 SL=VAL(A$) : IFSL<1ORSL>9THEN2000 
2100 PRINT" {CLEAR} SPACEWAR OPTIONS" 
2110 PRINT" {02 DOWN} {REV}S{OFF}UN' S GR 

AVITY" 

2120 PRINT" {DOWN} { REV} B{ OFF} LACK HOLE" 

2130 PRINT" {DOWN} {REV}N{0FF}0 GRAVITY" 

2140 PRINT" {02 DOWN} SELECT ONE OPTION" :G 
= 

2150 A$ = " " : G ETA$ : I FA$ = " "T HEN2 1 5 
2160 IFA$="S"THENG=1 
2170 IFA$="B"THENG=2 
2180 P0KES-2,SL:P0KES-1,G 
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Program 3. Spacewar Part 2. 
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0\ 

o 
o 
o 

2185 PRINT" {02 DOWN} JUST A FEW MOMENTS" Q 
2190 POKE198,5:POKE631,78:POKE632,69:POKE6 

3 3,87:POKE634,13:POKE635,131:END ^ 

9800 DATA7168,192,240,127,103,34,54,63,50 

9810 DATA7176,4,14,62,227,227,62,14,4 ^ 

9820 DATA7184,50,63,54,34,103,127,240,192 Q 

9830 DATA7192,24,24,60,36,102,231,126,24 

9840 DATA7208,24,126,231,102,36,60,24,24 ^ 

9850 DATA7216,3,15,254,230,68,108,252,76 Q 

9860 DATA7224,32,112,124,199,199,124,112,3 

2 ^ 
9 870 DATA7 232, 76, 252, 108, 68, 230, 254, 15, 3 

9871 DATA7240,0, 0,12, 28,56, 48,0 ,0 

9872 DATA7248,0,0,48,56,28,12,0,0 ^ 

9873 DATA7256,0,24,24,24,24,24,0,0 Q 

9874 DATA7264, 0,0, 0,62, 62, 0,0,0 

9900 DATA7296, 0,112, 126, 102, 32, 48, 48,0 ^ 
9910 DATA7 304, 228, 18, 37, 68, 36, 18, 33, 198 
9920 DATA7312, 0,48, 48, 32, 102, 126, 112,0 
9930 DATA7320,68,170,145,0,34,85,137,129 ^ 
9940 DATA7328,153,90,60,255,255,60,90,153 Q 
9950 DATA7336,129,137,85,34,0,145,170,68 
9960 DATA7344,0,14,126,102,4,12,12,0 <J 
9970 DATA7352,198,33,18,36,68,37,18,228 Q 
9980 DATA7360,0,12,12,4,102,126,14,0,-1 

1 C-22:R-23:S»7680:A-30720:DD»37154jP1»37151 

:P2»37152:SL=PEEK(S-2) ^ 

2 POKE36879,27:T=3;CY»4:CE=6:CA'=l:CS=7:CQ=l: Q 

CMa0 :X— 1 ;G"PEEK (S-1) 

3 V=36878!S1=V-2:S2-V-1:DIMDC% (2,2) ,0C% (2,2) ^ 

4 FORI=0TO2:PORJ=0TO2:X=X+1:DC%{I,J)=X:OC%(I ^ 



,J)=X+16!NEXTJ,I 

5 DEPFNA(Z)=S+X+C*Y:DEFFNB(Z)=PEEK{FNA(Z) ) :D 

EFFNR(Z)=INT(RND(1)*Z) W 

6 SX=50 : SY=50 : POKEV-9 , 255 : PRINT" {CLEAR} " : X=S 

+A:FORI=XTOX+505:POKEI,TiNEXTI 

7 POKE36879,62:FORI=lT03+2*SL:X»FNR(C) :Y=FNR ^ 
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(R) 

8 POKBFNA(0) ,46!POKBFNA(0)+A,CA:NBXT 

9 IFG»lTHBNX»ll:y=°12:POKEFNA(0) ,20:POKEFNA(0 

) +A,CS:SX=X:SY=Y 

10 IFG=2THENSX=FNR(C) :SY=FNR(R) 

11 X=FNR(C) :Y=FNR(R) : IFFNB ( 0) 032THEN11 

12 D=X:E=Y:Q=FNA(0) : U=-l : 0=FNR ( 3) -1 

13 POKEFNA(0) ,DC% (U+1,0+1) : POKEFNA(0) +A,CY 

14 X=FNR(C) :Y=FNR(R) : I FFNB ( ) 032THEN14 

15 H=X:L=Y:K=FNA(0) :M=1:N=FNR(3)-1 

16 POKEFNA(0) ,DC% (M+1,N+1) : POKEFNA ( ) +A,CE 

17 A$="":GETA$:IFA$=" "THEND=FNR (C) : E=FNR (R) 

18 GOSUB75:IFFBTHENX=D:Y=E:PX=U:PY=0:GOT047 

19 B=0:F=0:IFJ0THENB=1 

20 IFJ2THENB=-1 

21 IFJ1THENF=1 

22 IFJ3THENF=-1 

23 IFB=0ANDF=0THEN B=U:F=0 

24 U=B:O=F:IFG=0THEN28 

25 B=SX-D:F=SY-E:J=SQR(B*B+F*F) : J= (20-J) /30 : J 

=1-J*J 

26 IFRND(1)<JTHEN28 

27 B=SGN(B) :F=SGN(F) : D=D+B : E=E+F :GOT029 

28 D=D+U:E=E+0 

29 IFE<0THENE=R 

30 IFE>RTHENE=0 

31 IFD>CTHEND=0 

32 IFD<0THEND=C 

33 X=D:Y=E:J=FNB(0) :IFJ=32THEN35 

34 IFJ=46ORJ=20ORFNA(0) =KTHEN60 

35 IFX=SXANDY=SYTHENA$="WERE SUCKED INTO A BL 

ACK HOLE! ":WC=WC+1:G0T071 

36 POKEQ,32:POKEQ+A,T:Q=FNA(0) :POKEQ,DC% (U+1, 

0+1) :POKEQ+A,CY 

37 J=0:IFFNR(9)>SLTHEN39 

38 M=D-H:N=E-L:M=SGN(M) :N=SGN(N) : IFM=0ORN=0TH 

ENJ=1 

39 H=H+M:L=L+N:IFH<0THENH=C 

40 IFH>CTHENH=0 

41 IFL>RTHENL=0 

42 IFL<0THENL=R 

43 X=H:Y=L:IFFNB(0) <>32THENM=FNR( 3) -1 :N=FNR( 3 

)-l:GOT039 
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44 POKEK,32:POKEK+A,T:K=FNA(0) :POKEK,DC% (M+1, Q 
N+1) :POKEK+A,CE 

4 5 IFRND(l) <0.1OR(J=1ANDFNR(9)<SL)THENPX=M:PY ^ 

=N:G0T047 

46 G0T017 

47 Z=PX*PY:POKEV,8:IFZ=1THENJ=10 

48 IFZ=-1THENJ=9 

49 IFZ=0ANDPX=0THENJ=11 

50 IFZ=0ANDPY=0THENJ=12 U 

51 FORI=1TO10:X=X+PX:Y=Y+PY:POKES2, 230-1 

52 IFI<>lTHENPOKEZ,32:POKEZ+ArT:IFX>CTHENX=0 ^ 

53 IFX<0THENX=C O 

5 4 IFY>RTHENY=0 

55 IFY<0THENY=R ^ 

56 B=FNB(0) : IFB=32THEN58 

57 IFB=46ORB=20ORFNA(0)=KORFNA(0)=QTHENI=10:N 

EXTI:GOTO60 ^ 

58 Z=FNA(0) :POKEZ ,J:POKEZ+A,CM:NEXTI Q 

59 POKEZ,32:POKEZ+A,T:POKEV,0:GOTO17 

60 POKES2,230:SC=X-1:IFSC<0THENSC=0 ^ 

61 FC=X+1:IFFC>CTHENFC=C 

62 SR=Y-1:IFSR<0THENSR=0 

63 FR=Y+1:IFFR>RTHENFR=R ^ 

64 FORX=SCTOFC:FORY=SRTOFR:J=OC% (X-SC,Y-SR) 

65 POKEFNA(0) , J : POKEFNA( ) +A,CQ :NEXTY ,X 

66 POKES1,220:FORJ=15TO0STEP-1:POKEV,J:FORJ1= o 

1TO50:NEXTJ1:NEXTJ 

67 POKEV,0:FORX=SCTOFC:FORY=SRTOFR:POKEFNA(0) ^ 

, 32:POKEFNA(0)+A,T:NEXTY,X ^ 

68 IFPEEK(Q)=32THENA$="WERE VAPORIZED! ":WC=WC 

+1:G0T071 ^ 

69 IFPEEK(K)=32THENA$="TRIUMPHEDl":WH=WH+l:GO Q 

T071 

70 G0T017 ^ 

71 POKEV-9, 240: PRINT" {CLEAR} {03 DOWN}YOU " ; A$ 

72 PRINT" {02 DOWN}SC0RE: VIC";WC;" YOU";WH 

73 INPUT"{02 DOWN}PLAY AGAIN Y{03 LEFT}";A$: ^ 

IFA$="Y"THEN6 
7 4 END 

75 POKEDD,127:P=PEEK(P2)AND128:J0=-(P=0) :POKE ^ 

DD,255 ri 

76 P=PEEK(P1) :Jl=-( (PAND8)=0) :J2=-( (PAND16)=0) 

77 J3=-( (PAND4)=0) :FB=-{ (PAND32)=0) : RETURN ^ 
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You can use game paddles with the VIC, even from a 
BASIC program. Also included is information on VIC's 
"polled keyboard." 

The \/IC-20 has some remarkable capabilities not documented by 
the manual. Specifically, you can use game paddles with the VIC-20 
as well as make better use of the keyboard. 

What A Paddle Does 

Have you ever seen the little nine-pin port right next to the power 
switch? This port can be used with paddles. To make life easy, it can 
be used with the widely available Atari game paddles (which are 
used with their video games and home computers). Just plug in a 
pair, and we'll be ready to begin. These paddles are linear devices. 
This means the paddle is a much more sensitive device than a 
directional joystick, which can only point in eight or so directions. 
You may think the paddle is not even as good, pointing only left or 
right. This is not true. 

What the paddle actually does is isolate one position out of the 
256 possible ones. When the paddle is turned to the far right, this 
value is 0. Every time you turn the paddle in either direction the 
number is increased or decreased accordingly. The V\C-20 allows up 
to two paddles. For each of them, we can obtain a position value. 
These values are in memofy locations S9008 for the first paddle, and 
$9009 for the second. In decimal these are 36872 and 36873, respec- 
tively. (A number preceded by a "S" signifies it is hexadecimal.) 

How To Do it 

Shown below is a quick one-liner that prints out the values of both 
the paddle registers. 

10 PRINT PEEK(36872);PEEK(36873).-GOTO 10 
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Try typing and running this program now. You should see a 
continuous stream of two numbers flying by. Fiddle with the paddles. 
The numbers should change accordingly. The more you turn 
a paddle left, the higher the number goes (the opposite for right, 
of course). 

Next, we'll try something a little more complicated and which 
might be more applicable. Program 1 will move a little ball across 
the screen according to your paddle position. It will also slide a 
musical tone up and down at the same time. 

The first two lines are just set-up, setting volume for the tone 
generator and clearing the screen. Line 20 gets the initial paddle 
position. The next line, 30, determines the ball's position on the 
screen. The ball can move from the far left edge of the screen 
(memory location 7900) to the far right (7921). Logically, the thing to 
do is to move the ball a little bit left whenever the paddle value goes 
a little bit up (turning towards the left). The problem is that the 
paddle is much more accurate than one line of the screen. 

While the paddle has 256 possible calibrations, one line of the 
screen is only 22 characters long. What we do is to make a proportion 
of paddle calibrations per screen character, in this case 1 1 .64 (obtained 
by dividing 256 by 22). Now we have the position of the ball on the 
screen. Line 40 does almost the same thing, finding an appropriate 
tone for the paddle position. We have 128 possible tones, so the 
proportion of the calibrations to tones is only 2 to 1 . The next three 
lines just put the ball on the screen, tack a color onto it, and turn on 
the proper tone. Only the clean-up work remains to be done now: a 
small delay loop so the ball doesn't flicker badly, and erasing the ball 
and the color. After this, we get a new paddle reading and start all 
over again. 

If you have run this little demonstration, the advantage of a 
linear device should be obvious. You can just whip the paddle back 
and forth without having to worry whether the computer is fast 
enough to keep up with you, and the ball will follow because the 
paddles determine an absolute position, rather than just a direction. 
This could be very convenient in games where speed is indispensable. 
In the near future, I'm sure we'll see many clever and innovative 
ways to use the paddles. 

The Keyboard 

There are two types of keyboards: ASCII, or hardware keyboards, and 
polled, or software keyboards. The ASCII keyboard is a separate 
device from the computer, which just sends out the ASCII value of 
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the key being pressed. The polled keyboard is a little more subtle. A 
polled keyboard is split up into sections of eight keys, called rows. 
Generally, a polled keyboard has eight rows. The computer can test 
one row at a time, and detect which key along which row is being 
pressed, if any. The polled keyboard can also detect any number of 
key combinations along any particular row. Consequently, polled 
keyboards need a fair amount of system software to do what comes 
naturally to an ASCII keyboard. 

Most microcomputers today, the V\C-20 included, use polled 
keyboards because of the added flexibility and lower price. Unfortu- 
nately, the \/IC-20 normally does not let us get at some of those nice 
features. To us, from BASIC, it seems just like an ASCII keyboard. We 
can only obtain one character at a time using the GET command. If 
two keys are being pressed down at once, the GET command will 
almost randomly choose one of those two as the value that gets 
sent back to the user. If you wanted to do a two-player game or a 
game requiring simultaneous depressing of more than one key, life 
would be very difficult. But here's how it can be done. 

Polled Keyboard Encoding 

The VIC-20 polled keyboard has eight rows of eight keys each. Each 
row can be selected by a particular value. The eight values for the 
eight rows are all shown in Table 1 . These values are by no means 
arbitrary. If you examine the table, you can see that the values are 
given in binary, as well as decimal and hexadecimal. Row values 
were made by turning on all the bits in the byte, then turning off the 
bit which the row represents. For example, the first row has all the 
bits on (set to I ) except for the one on the far left, which is off (or 0). 
Then this binary number is simply used in its hexadecimal or decimal 
form to represent the row. Each key along the row is handled in 
exactly the same manner as the rows (for example, the value repre- 
senting the first row would be the same as the one representing the 
first key in that row). This is a little confusing, but it works out well in 
the end. Table 2 is the keyboard encoding matrix. It shows all the 
row values going down, and all the keys along each row, and their 
values. For instance, the keys on row 223 are F3, = ,:,K,H,F,S, and 
Commodore. The value of the Commodore key would be 254. 

Implementing Keyboard Theory 

Using an individual row on the keyboard is accomplished as follows. 
You select a row by POKEing its value' into a memory location we'll 
call the row select register. Then you can get the information as to 
which key(s) is hit by PEEKing another location, the keyboard data 
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register. The row select register is located at $9 1 20 (37 1 52), and the 
data register at $9121 (37153). 

Things don't work out as easily as doing just one POKE, then 
another PEEK. The problem, in this case, is the RUN STOP routine. \J 
This part of BASIC checks if you hit this key during execution of a 
program. If you have, the program stops. After every command 
executed, the routine puts a 247 in the row select register (the row 
which has the RUN STOP key) and checks the data register for a 
value of 254 (eighth key over). If the data register is 254, then you 
have hit the RUN STOP key, and program execution terminates. ^ 

This means that even after we havejust chosen a row by 
POKEing a value into the select register, the RUN STOP routine will 
change it right back to a 247. Very bad news indeed, unless you only 
want to use row 247. Not only that, but you can't use the RUN STOP 
key for your own purposes. There is a way to disable the RUN STOP 
key. POKEing 808 with 1 1 4 turns off the RUN STOP key, and POKEing ^ 
808 with 1 12 turns it back on again. This does not solve our problem. 
Turning off the RUN STOP key will prevent it from ending program 
execution when that key is hit, but the routine still stores that 247 in Q 
the select register. However, when we clear up the major problem, 
turning off the RUN STOP key will allow us to use that key in our 
programs. Q 

A Solution 

The way to solve this problem is by noticing that this routine operates G 
after every BASIC command. What must be done is to POKE in our - 
select value, then PEEK the data register, all in the time of less than ^ 
one BASIC command. Machine language is the answer. The VlC-20 
can use machine language even though it has no direct facilities for 
entering or saving it. [See Jim Butterfield's TINYMONl, reprinted in 
this bool<, whicft provides a monitor for VIC] We are going to use a 
very short machine language routine that simply puts our row into 
the select register, looks at the data register, then puts the contents 
of the data register into a RAM location into which the BASIC program <^ 
can look. Program 2 shows just such a machine language program. 
Not much to it at all, just five lines of code. The first instruction loads ^ 
in the row value, in this case a $7F ( 1 27). The second stores it in the 
select register. The next picks up a value from the data register. The 
last two just store that value in accessible RAM (at S 1 DFF, or 7679), 
then return to BASIC. 

This routine will do the trick because it does what we want in 
less than one BASIC command. Even though the \/IC-20 has no real ^ 
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method for entering machine code data, it can be done anyway. 
You just take the machine code values, convert them into decimal, 
and stick them into a BASIC DATA statement. Then just add a line of 
BASIC that reads the values and puts them in the correct place. In 
Program 3, we have a complete demonstration. Lines 30 and 40 are 
the aforementioned DATA statement and reader/POKEr. Line 5 turns 
off the RUN STOP. 

Lines 1 and 20 need a little bit of explanation. We are going to 
put the machine language routine into the top of available memory. 
Unfortunately, BASIC also wants to use this space. These lines tell 
BASIC not to use the highest 21 bytes of RAM. Locations 5 1 and 52, 
as well as 55 and 56, contain the top of BASIC RAM in low, high 
format. Low, high format is when the low byte of an address precedes 
its high byte. To calculate an address from this format, just use this 
formula; (256*high byte + low byte = address). Normally the low 
and high bytes for the top of BASIC are 00 and 30, respectively 
(yielding an address of 7680). These we change to 235 and 29, 
giving an address of 7659. Line 50 goes to our machine code routine, 
line 60 prints the result, and 70 repeats the process. Try it now. I'll 
wait. If you press one of the keys from the first row, the appropriate 
value will be printed. No key is indicated by its printing 255. As it is 
now, this program will print first row values. To change the row, just 
change the second item of data in line 30. 1 used this program, 
incidentally, to make the keyboard matrix chart. 

All this may seem pretty useless to you at this point. Our next 
program will do something that cannot be done with regular old 
BASIC. Program 4 will play a tone of varying pitch depending on 
which of two keys you hit. Doesn't sound too exciting, but it will 
play the two tones one after the other even if both keys are pressed 
at the same time. This is the basis of two-player games, where the 
computer can fairly give one turn to each player. All the material in 
this program should be old hat to you now, so I won't bother to 
explain it. 

Possibly you've learned to use your paddles and keyboard now. 
Put them to good usel 
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Table 2. Keyboard Matrix Table 

II 



Row (PEEK) 
of 

Keys 



127 



191 



223 



239 



247 



251 



253 



254 



N 
«« 


F7 


Home 







8 


6 


4 


2 


e> 


F5 




@ 


O 


U 


T 


E 


Q 


s 


F3 






K 


H 


F 


S 


COMMO- 
DORE 


s 


F1 


RIGHT 
SHIFT 


■ 


M 


B 


C 


Z 


SPACE 




CURSOR 


/ 


r 


N 


V 


X 


LEFT 
SHIFT 


RUN 
STOP 


in 

N 


CURSOR 


r 


L 


J 


G 


D 


A 


CTRL 


m 
in 
f* 


RETURN 




p 


1 


Y 


R 


W 






DEL 


£ 


+ 


9 


7 


5 


3 


1 



Program 1 . 

5 POKE36878,3 

10 PRINT" {CLEAR} " 

20 X=PEEK (36872) 

30 L=7921-INT(X/11.64) 

40 T=255-INT(X/2) : IFT=255THENT=254 

50 P0KEL,81 

55 POKEL+30720,2 
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127-7F-0111 nil 




191 -BF- 1011 1111 




223-DF- 1101 1111 




239-EF-11101111 


G 


247-F7- 1111 0111 


251 -FB- 1111 1011 




253- FD- 1111 1101 




254-FE- 1111 1110 





G 
G 

G 

G 
G 

G 
^ 

G 
G 
G 
G 
G 
G 
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60 P0KE36874,T 

70 FORK=1TO10:NEXT 

80 POKEL,32:POKEL+30720,1 

90 GOTO20 






n 
n 


Program 2. 


A9 7F LDA #$7F 
8D 20 91 STA $9120 
AD 21 91 LDA $9121 
8D FF ID STA $1DFF 
6 RTS 








Program 3. 


n 
n 


5 POKE808,114 

10 POKE51,235:POKE52,29 

20 POKE55,235:POKE56,29 

30 DATA169, 127, 141, 32, 145, 173, 33, 145, 141, 255, 
29,96 

40 F0RK=1T012: READX :POKE7659+K,X:NEXTK 

50 SYS7660 

60 PRINTPEEK (7679) ; 

7 GOTO50 




Program 4. 


CCCCCCCC 


10 POKES 08, 114: POKES 1, 235 :POKE52, 29 :POKE55, 23 

5:POKE56,29:POKE36878,3 
20 DATA169, 127, 141, 32, 145, 173, 33, 145, 141, 255, 

29,96 

3 F0RK=1T012 : READX : POKE7659+K ,X : NEXTK 
40 POKE7661,127:SYS7660 

50 IFPEEK (7679)=254THENPOKE36874,200:FORK=1TO 

5 00:NEXTK:POKE36874,0 
60 POKE7661,191:SYS7660 

7 IFPEEK (7679 )=127THENPOKE36875, 200 :F0RK=1T0 

5 00: NEXTK :POKE36875,0 

8 GOTO40 
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Game Paddles 

DAVID MALMBERG 

How to use paddles with the VIC — with two classic 
games. Pong and Breakout. 



VIC can use the Atari game paddles. This article is a tutorial on how 
these paddles work with the VIC with a detailed discussion of a 
Pong game. This version of Pong can have two human players 
against one another, or one player against the VIC, which has nine 
skill levels. A game paddle version of the classic game Breakout with 
three skill levels is also presented. After studying these two programs, 
the reader should be a game paddle "expert" and be capable of 
easily incorporating game paddles into his own programs. 

How Game Paddies Woric 

For those readers who are unfamiliar with the Atari game paddles, a 
brief description is in order. These game paddles are included when 
you buy an Atari home video computer system (the game machine), 
or may be purchased separately as a peripheral device for the Atari 
personal computer. The price for a pair of paddles varies between 
S 1 5 and $20. There are two separate paddle units which attach to a 
single connector that plugs directly into the VIC game port. Each 
paddle unit consists of a red "fire" button and a knob that may be 
turned freely in either direction. The knob is attached to a poten- 
tiometer which varies a voltage fed into the VIC's game port. After 
converting this voltage to a digital value, the VIC is able to know the 
exact position to which the knob has been turned. 

To see how the VIC can read the paddles, plug your paddles 
into the game port and enter the following short program." 

10 DD=37154:P1=37151:P2=37152 

20 PX=36872:PY=36873 

30 POKE DD,127:P=PEEK(P2)AND128 

40 FR=-(P=0) :POKE DD,255 

50 P=PEEK(P1) :FL=-( (PAND16)=0) 

60 VL=PEEK (PX) :VR=PEEK(PY) 

7 PRINT" {CLEAR} "; FL;VL;FR; VR 

200 GOTO 30 
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When you RUN this program you should see four numbers in 
the first row of the screen. The first two numbers correspond to the 
left paddle and the last two values to the right paddle. FL and FR will 
be either one or zero depending upon whether the left or right "fire" 
button is pushed or not. VL and VR will correspond to the knob 
settings for the left and right paddles respectively. Both VL and VR 
will vary between 255 and zero as the knobs are turned clockwise 
from their leftmost position to their rightmost position. You will 
notice that the knobs are more sensitive than their wide arc would 
imply; i.e., there is a large band of arc at either extreme of the knob's 
movement where the values stay at 255 or zero. The actual arc 
where the values change linearly from zero to 255 is only about one- 
quarter of a full turn. Although this is a little more sensitive than you 
might wish, you will find that this will still be enough arc to produce 
some exciting games. 

The reason why this short program actually works is beyond 
both the scope of this article and the interest level of most readers. I 
will leave it to Commodore to explain more fully when they issue 
their documentation on the game paddles. Suffice it to say, it 
does work! 

Controlling Screen Motion 

To see how the game paddles can be used to control motion on the 
VIC'S screen, add the following lines of code to the above program: 

2 POKE 36879, 27:PRINT"{CLEAR}":C=4 

4 S=256*PEEK(648) :A=30720:LL=S 

6 IFPEEK(648)=16THENA=33792 

70 X=21-INT(VL*21/255) : Y=22-INT ( VR*22/255) 

8 NL=S+X+22*Y:CL=NL+A 

9 IF FR OR FL THEN C=C+1 
100 IF C=8 THEN C=2 

110 IF NL=LL THEN 30 
120 POKE LL,32:POKE LL+A,1 
130 POKE NL,81:P0KE CL,C 
140 LL=NL 

You will notice that line 70 above replaces line 70 in the previous 
program. All of the other lines are new additions. 

When you run this program, you will find that the game paddles 
will move a ball graphic character around the screen at a very rapid 
pace. Specifically, the left paddle will move the ball from left to right 
horizontally, and the right paddle will cause vertical movement from 

47 



CHAPTER ONE 



top to bottom. Pushing either one of the fire buttons will change the 
bail's color. 

Let's lool< at this short program in more detail. It not only 
demonstrates how the game paddles can control motion (and will 
make following the logic of Pong and Breakout easier), but also 
contains several useful techniques that will help improve any 
"action" game you may write. Line 2 sets the border color to cyan 
and the background color to white, and clears the screen. The 
variable "C" contains the color of the ball and is initialized to purple. 

Lines 4 and 6 will be a useful addition to any program that 
POKES characters to the screen. As you may have read or even 
experienced, when memory modules (8K or more) are plugged into 
the VIC, the locations of the screen memory and tlie color matrix 
move. When you run a program which assumes the screen is in its 
"normal" position of 7680 and the screen has actually moved (to 
4096), the results are frequently a disaster. Lines 4 and 6 determine 
the correct locations for the screen and the color matrix - regardless 
of the amount of memory that has been added to the VIC. In line 4, 
the variable "S" will be the starting location of the screen and will be 
either 7680 or 4096. The variable "A" is the value that must be added 
to a particular screen location to get its corresponding color matrix 
location. For example, if we POKE location S with 8 1 (a ball character), 
and we POKE location S+ A with 4, we would get a purple ball in 
the "home" corner of the screen. For a "normal" 3.5K VIC, "A" is 
30720; i.e., the start of the color matrix is 7680 + 30720 or 38400, If 
the screen moves to 4096, the color matrix will move to 37888 and 
the value of "A" changes to 33792 - this is the condition given in 
line 6. 

The logic of the Pong program actually starts on line 280, which 
defines a group of variables that will be used repeatedly later. R is 
the number of rows. C is the number of columns. NAS( I and 2) 
contain the two players' names. SP$( I and 2) contain strings with 
the cursor control characters needed to position the cursor where 
each player's name is printed. SC(I and 2) contain the scores for the 
two players. In lines 290 and 300 more useful variables are defined. 
E and F are values used in the calculation of the paddle location. By 
making these calculations once at the start of the program, and just 
referencing their variable names later, the speed of the game is 
increased. The other variables in these lines are either identical to 
those used in the previous example or their purpose will be obvious 
when you see how they are used. Line 300 determines the starting 
locations for the screen, S, and color matrix, S + A. 
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Line 320 defines three very useful functions. FNA will return the 
current screen location corresponding to row Y and column X. This 
will normally be the ball's location. FNB will return the color matrix 
location corresponding to FNA. FNR(Z) will return a random integer 
between and Z. Lines 330 to 470 ask the player(s) to specify the 
options for the play of the game. The variable N is the number of 
players. If N = 1 then the VIC will play the part of the player on the 
right side of the screen. The variable D is the skill level for the VIC. A 
value of one will play a very poor game. A value of nine will never 
miss a shot. 

Lines 480 to 520 begin the game by zeroing both scores, 
randomly deciding who serves first, clearing the screen, drawing the 
border in row 1 , and printing the names and scores in row 0. Line 
530 tests the variable SV (which will either be 1 for the left player's 
serve or 2 for the right player's serve) and branches accordingly. 

Lines 540 to 580 handle the left player's serve. Specifically, line 
550 reads the status of the left fire button and allows the left paddle 
and the right paddles to move by the GOSUB's to 1 20 and 1 90 
respectively. Line 560 jumps back to 550 unless the fire button has 
been pushed and the serve has been made. Line 570 randomly 
causes the serve to go upward (DY=-1) or downward (DY= + 1 ). 
Line 580 puts the ball in front of the current position of the left 
paddle, sets its forward direction toward the right (DX= + I ), sounds 
a "hit," and branches to line 670, which is the actual play loop. 

Lines 590 to 650 are the right player's serve routines. Line 600 
tests N for the number of players. If N = i and the VIC is playing the 
right side, line 610 waits a random amount of time and then serves. 
Lines 620 to 650 handle a human player on the right side almost 
identically to the way that lines 550 to 580 handle the left side 
player. 

Line 670 is the start of the play loop and moves the ball one 
position in its current direction, via the GOSUB70. Line 690 allows 
the left paddle to move. Line 700 tests whether it is possible that the 
ball is about to hit a paddle because it is in either column 2 or 
column 1 9, i.e., one column from the paddles. If the answer is no, 
the ball is allowed to move one more position. This "extra" move in 
the playing loop makes the game considerably faster - to see how 
much faster, try the game with line 700 deleted. 

Lines 71 to 790 handle the right player's paddle movement. 
Lines 730 to 760 are for the VIC playing the right paddle. Based on 
whether a random integer from zero to nine is greater than the skill 
level, the VIC will move. If the VIC moves, it moves so its paddle is 
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even vertically with the current position of the ball. Obviously, if the 
skill level is nine, then the VIC will always move and will never miss 
the ball. Line 780 makes the paddle move for a human player on the 
right side. 

Line 790 again tests whether the ball is possibly going to hit a 
paddle because it is in a column next to a paddle. If the answer is 
no, then the program branches back to the start of the play loop at 
line 670. If the answer is yes, the ball is just about either to hit the 
paddle or to miss it. Lines 8 1 and 820 determine the values for ZZ, 
the index for the player who will win the point if there is a mix, and 
ZC, the screen PEEK/POKE character for the paddle. Line 830 slows 
any "fast" ball down to normal speed. 

Lines 840 and 850 test if the ball would hit the paddle if it 
moved one more position. The variable Q in line 840 is the screen 
location of the position next to (in the same row) the ball's current 
position. If the screen character at location Q is equal to ZC, the 
appropriate paddle character, the ball is about to hit the middle of 
the paddle, and the program branches to 960. Line 850 performs the 
same type of test, but for a possible "corner" hit. 

If the ball failed both of these tests, it is just about to miss the 
paddle. In this case lines 870 to 940 move the ball off the field, 
sound a "miss," update the score, determine the next server (the 
loser), and branch back to serve again or ask about a new game if 
that was the winning point. 

If the ball is hit by the paddle, line 960 will change its direction, 
sound a "hit," and move it one position on its flight path. Line 970 
will randomly make it a "fast" ball by doubling the ball's X movement, 
DX. This not only doubles the speed, but also changes the angle of 
flight. These "fast" balls make the game much more exciting. 

After you have gone through the previous example, the sub- 
routines used in Pong should seem very straightforward. The sub- 
routine at line 70 checks if the ball is about to hit a wall and, if the 
answer is yes, it causes the bail to bounce. Then this subroutine 
erases the current ball location and draws it at its new location. The 
subroutines at 1 20 and 1 90 move the left and right paddles respec- 
tively. They first check to see if the paddle has moved since the last 
reading. If the answer is no, they RETURN. If yes, these subroutines 
erase the last paddle, and draw a paddle at the new location. The 
subroutine at 260 sounds a "hit" and the subroutine at 270 a "miss." 

Breakout 

The version of Breakout here also uses the game paddles. You will 
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O find it mucin faster and more exciting tinan versions wliich use a 

^ joystick or the keyboard and can move the paddle only a column at 

a time. It has three skill levels and the highest will challenge even the 

most seasoned arcade malingerers. 
^ The overall program flow and even the variable names 

are almost identical to Pong. The program is well commented and 
^ self-documenting. 

^ Breakout 

10 REM VIC BREAKOUT USING GAME PADDLE 
D 20 REM BY DAVID MALMBERG 

30 REM 43064 VIA MORAGA 
^ 40 REM FREMONT, CALIFORNIA 94538 

50 GOTO200 

60 REM SUB TO MOVE BALL ONE POSITION 
7 IFX=0ORX=21THENDX=-DX:GOSUB190:REM BOUNCE ~ 
IF WALL 

80 POKEFNA(0) ,32:POKEFNC(0) ,1:REM ERASE CURRE 

NT BALL LOCATION 
90 X=X+DX:Y=Y+DY:POKEFNA(0) , 81 : POKEFNC ( 0) ,4:R 

EM DRAW NEXT BALL LOCATION 
100 RETURN 

110 REM SUB TO UPDATE PADDLE 
120 VL=PEEK (PX) :REM READ PADDLE 

130 NL=E-INT(VL*F) ! IFNL=LLTHENRETURN:REM SAME ~ 
^ AS LAST LOCATION 

r> 140 Z=S+461+LL:FORI=lTOD:POKEZ+I,32:POKEZ+I+A, 

IsNEXTsREM ERASE OLD PADDLE 
150 Z=S+461+NL:FORI=lTOD:POKEZ+I,226:POKEZ+I+A 
^ ,6:NEXT:REM DRAW NEW PADDLE 

160 LL=NL:REM UPDATE PADDLE LOCATION 
O 170 RETURN 

180 REM SUB TO SOUND HIT 

190 POKEV,15!POKES1,220-3*Y:FORI=1TO50:NEXT:PO 
n KEV,0sPOKESl,0:RETURN 

200 POKE36879,27:C=22:HI=0:X=RND(-TI) 
^ 210 REM INPUT PADDLE WIDTH (DIFFICULTY) 

^ 220 PRINT" {CLEAR} WELCOME TO BREAKOUT" 

230 PRINT" {DOWN}DO YOU WANT A" 
^ 240 PRINT" {DOWN} {REV} 1 {OFF} - DIFFICULT" 

_ 250 PRINT" {REV} 2 {OFF} - AVERAGE, OR" 

260 PRINT" {REV} 3 {OFF} - EASY GAME ?" 
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270 A$="" :GETA$ : IFA$=" "THEN270 
280 D=VAL(A$) : IFD<1ORD>3THEN270 
290 E=C-D:P=E/255 

300 V=3687a: 31=36876 :PX=36872:LL=8 

310 S=256*PEEK (648) : A=30720 : IPPEEK ( 648 ) =16THEN 

A=33792 

320 DEF FNA(Z)=S+X+C*Y : DEF FNC (Z) =FNA(Z) +A : 

DEP PNR(Z)=INT(Z*RND(1) ) 
330 SC=0:BA=9 
340 REM DRAW BRICKS 

350 NN=0 : PRINT" {CLEAR} " : Y=l : FORX=0TO21 : POKEFNA 

(0) ,160:POKEFNC(0) ,3:NEXT 
360 FORY=5TO8:FORX=0TO21:POKEFNA(0) ,160:POKEFN 

C(0) ,Y-1:NEXTX,Y 
370 PRINTCHR$ (144) "{HOME}BA";BA;" HI"; HI;" SC" 

;SC 

380 TT=PNR(300) : ZZ=TI 

390 IFTI-ZZ<TTTHENGOSUB120:GOTO390:REM RANDOM ' 
START 

400 X=5+FNR(10) :Y=9:DY=1:DX=-1:IFPNR(9)>4THEND 

X=1:REM NEW BALL DIRECTION 
410 POKEFNA(0) ,81:POKEFNC(0) ,4:REM DRAW NEW BA 

LL 

420 REM START OF MAIN LOOP 
430 GOSUB70:REM MOVE BALL 

440 GOSUB120:REM ERASE OLD PADDLE AND DRAW NEW 
ONE 

4 50 REM TEST FOR PADDLE HIT OR MISS 
460 IFY<>20THEN610:REM NOT NEAR PADDLE 
470 Z=FNA(0)+C:IFPEEK(Z)=226THEN590:REM STRAIG 
HT HIT 

480 IPPEEK (Z+DX)=226THENDX=-DX:GOTO590:REM COR 

NER HIT 
490 REM MISS PADDLE 

500 GOSUB70:GOSUB70:POKEPNA(0) , 32 : POKEPNC ( 0) ,1 

510 POKEV,15:FORI=1TO30:POKES1, 200-2*1 :NEXT:PO 

KEV,0:POKES1,0 
520 BA=BA-1: PRINT" {HOME}BA";BA;" HI"; HI;" SC"; 

SC 

530 IFBA<>0THEN380:REM NEXT BALL 

540 PRINT" {HOME} {10 DOWN} PLAY AGAIN ?" 

550 A$="":GETA$:IFA$=""THEN550 

560 IFA$<>"Y"THENEND 

570 IPSC>HITHENHI=SC 
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580 GOTO330 

590 GOSUB190:DY=-DY:GOSUB70:GOTO430:REM SOUND " 
HIT AND MOVE 

6 00 REM TEST FOR BRICK AREA 
610 IFY<4ORY>9THEN710 

620 REM IN BRICK AREA 

630 IFPEEK(FNA(0)+C*DY+DX)<>160THEN430:REM NO " 

BRICK NEXT - SO NORMAL MOVE 
640 REM HIT BRICK NEXT 
650 GOSUB70:GOSUB190:SC=SC+9-Y 

660 NN=NN+1:IFNN>70THEN350:REM DRAW NEW BRICKS 

670 PRINT" {HOME} BA";BA; " HI"; HI;" SC";SC 

680 IFFNR(Y+10) >4+3*DYTHENDY=-DY:GOTO430:REM B 

OUNCE BACK 
690 GOTO610 

7 00 REM TEST FOR TOP 

710 IFY=2THENDY=-DY:GOSUB190:REM BOUNCE OFF TO 
P 

7 20 GOTO430:REM END OF MAIN LOOP 



Pong 

10 REM VIC PONG USING GAME PADDLES 

20 REM BY DAVID MALMBERG 

30 REM 43064 VIA MORAGA 

40 REM FREMONT, CALIFORNIA 94538 

50 GOTO280 

60 REM SUB TO MOVE BALL ONE POSITION 

7 IFY=2ORY=22THENDY=-DY:GOSUB240:REM BOUNCE ~ 

IF WALL 

8 POKEFNA(0) ,32:POKEFNC(0) ,1:REM ERASE CURRE 

NT BALL LOCATION 
9 X=X+DX : Y=Y+DY : POKEFNA ( ) , 8 1 : POKEFNC ( ) , 4 : R 

EM DRAW NEXT BALL LOCATION 
100 RETURN 

110 REM SUB TO UPDATE LEFT PADDLE 
120 VL=PEEK (PX) :REM READ PADDLE 

130 NL=E-INT(VL*F) : IFNL=LLTHENRETURN:REM SAME ' 

AS LAST LOCATION 
140 Z=S+45+LL*C : FORI=0TO2 : POKEZ+I*C ,32 : POKEZ+I 

*C+A,1:NEXT:REM ERASE OLD 
1 50 Z=S+45+NL*C : FORI=0TO2 : POKEZ+I*C , 225 : POKEZ+ 

I*C+A,6:NEXT:REM DRAW NEW 
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160 LL=NL:REM UPDATE PADDLE LOCATION 
170 RETURN 

180 REM SUB TO UPDATE RIGHT PADDLE 
190 VR=PEEK(py) :REM READ PADDLE 4? 
200 NR=INT(VR*F) : IFNR=LRTHENRETURN:REM SAME AS 

LAST LOCATION 
210 Z=S+64+LR*C:FORI=0TO2:POKEZ+I*C,32:POKEZ+I 

*C+A,1 :NEXT:REM ERASE OLD W 
220 Z=S+64+NR*C : FORI=0TO2 : POKEZ+I*C ,97 : POKEZ+I 

*C+A,6:NEXT:REM DRAW NEW 
2 30 LR=NR:REM UPDATE PADDLE LOCATION ^ 
240 RETURN 

2 50 REM SUB TO SOUND HIT 
260 POKEV,15:POKES1,220-3*Y:FORI=1TO50:NEXTI:P Q 

OKEV , : POKESl , : RETURN 
270 POKEV, 15:FORI=1TO30:POKES1, 200-2*1 :NEXTI:P ^ 

OKEV, : POKESl , : RETURN 
280 POKE36879,27:R=23:C=22:X=RND(-TI) :DIMNA$ (2 

) ,SP$(2) ,SC(2) ^ 
290 E=R-5:F=E/255:DD=37154:P1=37151:P2=37152:S 

P$ (!)="{ HOME}": SP$ (2)=" {HOME} {12 RICH ^ 

RIGHT}" Cj 
300 V=36878:S1=36876:PX=36872:PY=36873:LL=8:LR 

= 8 ^ 
310 S=256*PEEK(648) :A=30720:IFPEEK(648)=16THEN 

A=33792 ^ 
320 DEF FNA(Z) =S+X+C*Y : DEF FNC(Z) =FNA(Z) +A : Q 

DEF FNR(Z) =INT(Z*RND(1) ) 
330 PRINT" {CLEAR} WELCOME TO VIC PONG" ^ 
340 PRINT" {DOWN} DO YOU WISH TO PLAY" 
350 PRINT" {DOWN} {REV}1{0FF} - THE VIC, OR" 
360 PRINT" {DOWN} {REV}2{0FF} - ANOTHER PLAYER ~ 

? " — 
370 A$="":GETA$:IFA$=""THEN370 ^ 
380 N=VAL(A$) : IFN<1ORN>2THEN370 ^ 
390 PRINT" {DOWN} ENTER NAME(S)" ^ 
400 F0RI = 1T0N:PRINT" {DOWN}PLAYER"; I; :INPUTNA$ ( ^ 

DtNEXTI Q 
410 IFNO1THEN490 ^ 
420 NA$ (2) ="VIC": PRINT" {CLEAR} HOW HARD SHOULD ~ o 

I PLAY" 

430 PRINT" {DOWN} {REV}1{0FF} - EASY" ^ 

4 40 PRINT" {DOWN} TO" Q 

450 PRINT" {DOWN} {REV}9{0FF} - IMPOSSIBLE" 

460 A$="":GETA$:IFA$=""THEN460 ^ 
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470 H=VAL(A$) : IFH<1ORH>9THEN460 

480 REM BEGINNING SERVE AND GAME 

490 B$=" ":NL=9:NR=9:SC(1)=0:SC(2)=0: 

SV=1:IFFNR{9) >4THENSV=2 
500 PRINT"{CLEAR}":Y=1:FORX=0TO21:POKEFNA(0) ,1 

6 : POKEFNC ( ) , 3 :NEXTX 
510 F0RJ=1T03:PRINTSP$ (SV) "SERVICE" :GOSUB270 : P 

RINTSP$ (SV) B$ :GOSUB260 :NEXTJ 
520 PRINT" { HOME} ";NA$ (1) ;SC(1) ; SP$ (2) ;NA$ (2) ; S 

C(2) 

530 ON SV GOTO550,600 
540 REM LEFT SERVE 

550 P0KEDD,255:P=PEEK(P1) : JL=- ( (PAND16) =0) :GOS 

UB120:GOSUB190 
560 IFJLO1THEN550 
570 DY=1:IFFNR(9) >4THENDY=-1 
580 Y=NL+3 : X=2 :DX=1 :GOSUB260 :GOTO670 
590 REM RIGHT SERVE 
600 ON N GOTO610,620 

610 NR=FNR(19) :GOSUB210:GOTO640:REM VIC'S SERV 
E 

620 POKEDD,127:P=PEEK(P2)AND128:JR=-(P=0) :GOSU 

B190:GOSUB120:REM HUMAN SERVE 
630 IFJRO1THEN620 
640 DY=1:IFFNR{9) >4THENDY=-1 

6 50 POKEDD,255:Y=NR+3:X=19:DX=-1:GOSUB260 
660 REM START OF PLAY LOOP 

670 GOSUB70:REM MOVE BALL 
680 REM LEFT MOVE 
690 GOSUB120 

700 IFXO2ANDXO19THENGOSUB70 
710 REM RIGHT MOVE 
720 ON N GOTO730,780 

730 IPH<FNR(9)THEN790:REM COMPUTER MOVE 

7 40 NR=Y-3:IFNR<0THENNR=0 
750 IFNR>18THENNR=18 

760 GOSUB210:GOTO790 
770 REM HUMAN RIGHT MOVE 
780 GOSUB190 

790 IFXO2ANDXO19THEN670 

8 00 REM TEST FOR PADDLE HIT OR MISS 
810 IFX=2THENZZ=2:ZC=225 

8 20 IFX=19THENZZ=1:ZC=97 
8 30 IFABS(DX)=2THENDX=DX/2 

840 Q=FNA(0)+DX:IFPEEK(Q)=ZCTHEN960:REM STRAIG 
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HT HIT 

8 50 IFPEEK(Q+C*DY)=ZCTHENDY=-DY:GOTO960:REM CO 

RNER HIT 
860 REM MISS PADDLE 

870 GOSUB70:GOSUB70:POKEFNA(0) , 32 : POKEPNC ( 0) ,1 

880 SC(ZZ)=SC(ZZ)+1:SV=2:IFZZ=2THENSV=1:REM UP 

DATE SCORE, LOSER SERVES 
890 IFSC(ZZ) <>15THEN510:REM NEXT SERVE 
900 FORJ=1TO10:PRINTSP$ (ZZ) "WINNER! " :GOSUB270 : 

PRINTSP$ (ZZ)B$:GOSUB260:NEXTJ 
910 PRINT" {HOME} {11 DOWN} PLAY AGAIN ?" 

920 A$="":GETA$:IFA$=""THEN920 
930 IFA$<>"Y"THENEND 
940 GOTO490:REM NEW GAME 
950 REM HIT PADDLE 

960 DX=-DX:GOSUB260:GOSUB70:REM SOUND HIT AND ~ 
MOVE 

970 IFFNR(9) >4THENDX=2*DX:REM DOUBLE X-SPEED 
980 GOTO670 
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CHAPTER TWO 



The Joystick 
Connection: 

Meteor Maze 

PAUL L BUPP / STEPHEN P. DROP 



An exciting game serves to illustrate how joysticks are 
used with the VIC. 

Let the games begin! Your VIC can be easily connected to the readily 
available Atari joysticks. We will show the new VIC-ZO owner how 
to use these joysticks. Also there's a new VIC game called "Meteor 
Maze," which demonstrates the use of the joystick. 

But first, let's look at how the joystick connects to the VIC. 
Program 1 is a BASIC joystick demonstration program. A line-by-line 
description of the program follows: 

10 PRINT CHR$ (147) 

15 PRINT SPC(3) CHR$(95) "JOYSTICK 

DIRECTION" 
20 PRINT SPC(3) CHR$(95) "BUTTON" 

Lines 1 through 20 clear and print the display screen used by 
the program. CHR$(95) prints the left arrow. 

25 PRINT SPC(177) CHR$(144) "** JO 
YSTICK DEMO **" 

Line 25 uses the SPC command to print 1 77 spaces, then a 
CHR$(I44) turns on the black print mode before printing the title of 
the program. 

30 POKE 37154,127 

This line resets the direction of the 6522 A side Data Direction 
register which was already set by the system to check the keyboard. 
The other Data Direction register used by the joystick is already set 
by the system default. (Note: With this register altered, some keys 
will now no longer be recognized by the system. See important note 
to line 90 below.) 
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35 PRINT CHR$(19) <J 

This line homes the cursor to the top left of the screen. 

40 A = ( PEEK (37137) AND 28) OR (P ^ 
EEK(37152) AND 128) \j 

This line pulls together the two input register values used by the 
joystick and combines them to make a single value (A). 



45 A = ABS( (A-100)/4)-7 



55 B = PEEK (37137) AND 32 



75 IF B GOTO 85 



o 



This line reduces the joystick value (Variable A) from line 40 to a 
simple number value between one and 13 with some number 
values (four and eight through ten) not being used. This value is kept \j 
in variable A. For each direction of the joystick. Figure 1 provides a 
visual display of the original value (boxed) and the condensed value 
placed in variable A by lines 40 and 45. W 



50 ON A GOSUB 100 , 110 , 120 130 , 140 W 
,150, ,160,170,180 ^ 

This line directs the program to go to the chosen joystick 
direction subroutine and then to return to the next line of BASIC. 



O 

Here the variable B is set to zero if the joystick button is pushed, 

or set to 32 if it is not being pushed. This PEEK is looking at only the ^ 

one bit which shows whether the button has been pushed by the q 
player. 

60 PRINT CHR$(19) ^ 

6 5 PRINT ^ 

These two lines home the cursor and move it down one line to ^ 
place it at the right location on the screen to print whether the ~ 
button is ON or OFF. 

■ — V 



This IF statement only goes to line 85 if the variable B is not 
zero. In this case, it means the button was not pushed. Otherwise, ^ 
the IF fails and the BASIC program proceeds to the next statement. 



80 PRINT " ON":. GOTO 90 Q 
8 5 PRINT "OFF" 
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These lines print whether the button is ON or OFF depending 
on the IF statement in line 75. 

90 POKE 37154,255 

This line resets the Data Direction register altered in line 30. This 
internal system register is used to check the keyboard. With this 
POKE, all the keys are again recognized by the VIC-20. If, in your 
program, the STOP button is pushed, or for some other reason the 
program is accidentally stopped, this Data Direction register becomes 
correctly reset by using the RUN/STOP and RESTORE button combi- 
nation or by using POKE 371 54,255. 

9 5 GET A$: IF A$ = "" GOTO 30 

This line of BASIC provides a way to end the program by 
looking at the keyboard input buffer with the GET, and then, if 
no key has been pushed, the program branches back to line 30 to 
begin again. 

Lines 1 00 through 1 80 are the direction indicator subroutines 
which print the direction indicator at the top of the screen. These are 
reached from line 50 above. 



99 


END 








100 


PRINT 


■1 


SW"! 


RETURN 


110 


PRINT 


II 


NW"" 


RETURN 


120 


PRINT 


II 


W" 


RETURN 


130 


PRINT 


It 


s" 


RETURN 


140 


PRINT 


n 


N"! 


RETURN 


150 


PRINT 


n 


» . 


RETURN 


160 


PRINT 


11 


E" ! 


. RETURN 


170 


PRINT 


11 


NE" ! 


RETURN 


180 


PRINT 


II 


SE"! 


RETURN 



This BASIC program is written in "portable" code which can be 
simply typed into the \/IC-20. However, for those planning to include 
the Joystick Connection in their own programs, the routine can be 
speeded up and condensed to take up less room. A condensed 
version of the same routine is included in the Meteor IVIaze game 
(Program 2). That completes the discussion of the Joystick Connection 
and how it works. 

Now, let's look at the game program "Meteor Maze." 

Meteor Maze 

Meteor Maze is a fast game using the Joystick Connection routine 
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described above. The object of the game is to move your Scout Ship 
through the meteor field to the Base Ship at the bottom of the screen 
as quicl<ly as possible. Two levels of play are available, Novice and 
Advanced. The difference in levels is the computer's tolerance for 
navigational error. Details of these differences can be displayed by 
pushing Function Key #1 (Fl ). Speed is of the essence. The player 
must learn to manipulate the controls well to be the fastest to reach 
the Base Ship. 

Figure 1 . Joystick Direction Values. 






N 



NW 



NE 




A 






sw 



SE 



[mi 



A 



s 





VALUE returned to variable A in line 40 of Program 1 . 




VALUE returned to variable A in line 45 of Program 1 . 
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Program 2. 

2 PRINT"METEOR MAZE"SPC ( 96 ) "FOR I 

NSTRUCTIONS"SPC(34) "PRESS" 
SPC(40) "Fl 

3 POKE56,28:POKE52,28:CLR:FORA=71 

68T07375:READB:POKEA,B:NEX 
T 

4 V=36878 :N=V-1 :S=N-2:POKE37 154,1 

27:L=7680:GOSUB97:F=13:IFG 
THENE=3:GOT06 

5 E=99 

6 POKE36869, 255 :P0KEV+1, 27: PRINT" 

{OFF} {YEL} {CLEAR}V{BLK} "; : 
FORA=1TO480 :GETA$ : IFA$=CHR 
$ (133)GOTO40 

7 PRINTMID$ ("@A@B@C@D@E@F" ,RND(TI 

) *12+1,1) ; :NEXT 

8 PRINT" {RED} @LM{ PUR} {REV} ELAPSE 

D TIME {OFF} {RED}NO{0 

7 LEFT} {REV} {PUR} "; :P0KE81 

8 5,16:POKE389 5,2:TI$="000 
00" 

9 A= (PEEK(37137)AND28)OR(PEEK(371 

52)AND128) : A=ABS (A-100) /4- 
7 :IFA=7THENA=F 

10 ONAGOSUB90,91,9 2, ,93,94, , , , ,95, 

96,97:F=A 

11 A=PEEK (37137)AND32:IFATHENPOKEV 

,0:GOTO27 

12 POKEN,255:POKES,220:POKEV,3 :IFP 

EEK (C) >6GOT027 

13 IFPEEK(C)G0T019 

14 POKE30720+C,7 :POKEC,PEEK (L) :P0K 

EL,0:L=C:IFC<>8161GOTO27 

15 GOSUB99:POKE8161,22:PRINT"{13 L 

LEFT}DOCKING"; :P0KEV,15 

16 F0RL=1T04 :FORC=18 0TO235STEP2:PO 

KES,C:FORA=1TO10: NEXT: NEXT 
: POKES, 

1 7 FORA= ITOl : NEXT : READA , B : POKES 1 6 
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1 ,A:POKE8162,B:NEXT ^ 

18 RESTORE :FORA=1TO208:READB: NEXT: 

K=0:GOTO4 \^ 

19 0NGG0T021 

20 GOSUB99:POKEC,7 :POKEN,255:FORA= 

15TO0STEP-1:POKEV,A;FORB=1 \J 
T035: NEXT: NEXT :GOT027 

21 GOSUB99:POKEN,220:FORA=16TO1STE 

P-1 :P0KEV,A:F0RB=A*16-1T0( 
A-1) *16STEP-1:P0KEV+1,B 
2 3 NEXT :NEXT:POKE36865, 132 :P0KEV+1 

,59:POKE36869,242:K=K+l:GO \J 
SUB99 

24 PRINT" {CLEAR} {BLK} { OFF}SCOUT"K" 

TO BASE: {DOWN} " :PRINT"REQU \J 
EST"INT(EXP(K) ) "BOTTLES" :P 

RINT"OF SUPER GLUE! ^ 

25 FORA=131TO0STEP-1:POKE36865,A:F O 

0RB=1T045:NEXT:NEXT 

26 PRINT" {CLEAR} " :GOSUB99 : P0KE3686 

5,25:GOT04 

27 PRINTMID$(TI$,3,2)":"MID$(TI$,5 

) "{05 LEFT}"; ^ 

28 GETA$:IFA$=CHR$ (133)GOTO40 G 

29 IFA$<>CHR$ (135)GOT09 

3 5 IFE=0ORPEEK (C) >8GOT09 

36 GOSUB99:POKEN,220:FORA=15TO0STE ^ 

P-1:P0KEC,8 :P0KEV,A:F0RB=1 
TO20:NEXT:POKEC,0 

37 FORB=1TO20:NEXT:NEXT:GOSUB99:E= \j 

E-1:G0T09 

40 POKEV+l,127:POKE36869,242:PRINT ^ 

" {CLEAR} {OFF} {RED} $$$$ ^ 
$$$$$$"SPC(12) "{REV}SELECT 
ONE{BLK} {DOWN} 

41 A$=" -ABLE TO DESTROY" : PRINT" O 

F1=N0VICE LEVEL" :PRINTA$ 

42 B$=" -SHIP WILL ":PRINT" 9 ^ 

9 METEORS" :PRINTB$ "SURVIVE O 
"SPC(5) "METEOR COLLISIONS{ 
DOWN} 

4 3 PRINT" F3=ADVANCE LEVEL" : PRINTA \^ 

64 O 

O 



$SPC(7) "3 METEORS 

44 PRINTB$"EXPL0DE"SPC(5) "ON IMPAC 

T WITH A"SPC(6) "METEOR{DOW 
DOWN} 

45 PRINT" F5=INSTRUCTI0NS{D0WN} ":P 

RINT" F7=END THE GAME{02 D 
DOWN}": PRINT"* CURRENT LEV 
EL 

46 IFGTHENPRINT"{ HOME} "SPC( 198) "*" 

:GOT048 

47 PRINT" {HOME} {03 DOWN}* 

48 POKE37154 , 255 :GETA$ : IFA$=" "GOTO 

48 

49 A=ASC(A$)-132:ONABS(A)GOT051,52 

,55,80 

50 G0T04 

51 G=0:GOTO4 

52 G=1:G0T04 

55 POKEV+1, 127 -.PRINT" {BLK} {CLEAKj { 

DOWN} GOAL-MOVE IN FRONT OF 
THE DOCKING BAY AND T 
HE BASE WILL LAND 

56 A$=" YOUR SHIP.{DOWN} ":PRINTA$ 

: PRINT" JOYSTICK WILL POINT 
"A$ 

57 PRINT" FIRE BUTTON WILL MOVE "A$ 

58 PRINT" Fl ALLOWS CHANGE OF G 

AME DIFFICULTY. {DOWN} 

59 PRINT"F5 DESTROYS METEORS T 

HAT ARE IN FRONT OF"A$ 

60 PRINT" {02 DOWN} HIT A KEY TO CON 

TINUE 

61 GETA$:IFA$=""G0T061 

62 GOTO40 
80 SYS4096 

90 POKEL,24:C=L+21:RETURN 

91 POKEL,23:C=L-23:RETURN 

92 POKEL,20:C=L-1:RETURN 
9 3 POKEL, 18 :C=L+22: RETURN 
94 POKEL, 17:C=L-22:RETURN 
9 5 POKEL, 19 :C=L+1: RETURN 
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96 POKEL,21:C=L-21:RETURN 

97 POKEL,22:C=L+23:RETURN 

99 POKEV,0 :POKEN,0 : POKES, 0: RETURN 
1000 DATA0, 0,0, 0,0, 0,0, 0,0, 12, 62, 127 

,62,28,0,0,32,120,28,62,60 

,24,0,0 

1002 DATA24, 60, 126, 124 ,6 0,56,28,0,0, 

1 0, 55, llA, 120, 60, 28, id, id, Id, 

16,88,124,56,28,0 
1004 DATA56,126,60,32,6,15,2,6,10,84 

,4,161,34,136,133,40,234,5 

6,239,78,98,198,48,96 
1006 DATA0, 0,0, 0,0, 114, 127, 114, 0,0,0 

,0,0,7,7,7,6 3,8 3,143,143,1 

37,174,254,174 
1008 DATA63, 8 3, 143, 143, 137, 142, 142,1 

4 2,255,255,255,255,255,7 2, 

75,72,0,0,0,0,0,0,127,159 
1010 DATA14 2, 137, 14 3, 143, 8 3, 6 3, 255, 6 

3,78,24,255,255,255,255,25 

5,231,8,28,8,8,28,28,28,28 

1012 DATA28, 28, 28, 28, 8 ,8,28,8,0,0,11 
4 , 127, 114, 0,0, 0,0, 0,78, 254 
,78,0,0,0 

1014 DATA0, 6, 6, 24, 56, 112, 32, 0,0, 32,1 
12,56,24,6,6,0,0,9 6,96,24, 
28,14,4,0 

1016 DATA0, 4, 14, 28, 24, 96, 9 6, 0,6 3,8 3, 

143,143,137,190,190,190 
1018 DATA9,12,10,11,0,25,0,12 
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ZAP!! 

DUB SCROGGIN 



ZAP!! demonstrates an important technique for fast 
animation — POKE grapfiics. 

"ZAP!!" is an exciting and cfnailenging VIC-IO game program designed 
for up to six players and up to five rounds per player. Each player 
may select from any of five skill levels and may change levels each 
round, if desired. Using l<eyboard controls, players maneuver a block 
around the screen and through a field of randomly placed and color 
coded graphic figures. The object is to run over and erase as many of 
these figures as possible in two minutes, but also to avoid running 
into asterisks and being zapped. After the player block is moved it 
cannot be stopped, but the direction of movement may be changed. 
The higher the skill level, the faster the block moves and the more 
asterisks there are. The number of scoring figures is increased so that 
a higher score is possible too. 

The figures on the screen count differently toward the score. If a 
player is "zapped," he retains his score, but his time is over. Players 
may run off the screen, but may strike a hidden asterisk if they do. A 
vertical wraparound feature prevents players from wandering too far 
off the screen. A variety of colors, graphics, and sound effects adds 
excitement to the program. 

As with most computer games, proficiency at Zapll will take 
some practice and a lot of concentration. 

The player block is moved around the screen by the computer 
PEEKing at the keyboard to determine the value of the last control 
key pressed. A direction factor is then assigned to the variable DR 
(steps 590-620). When moving left, DR is - I, right is I, up is -22 and 
down is 22. This factor is then added to the position of the block (B) 
(step 650). The old block is then erased by POKEing it to 32 (blank) 
and a new one is placed in position (step 570). This all happens so 
quickly that the illusion of motion is created. 

Scoring and zaps are determined by PEEKs at the block's 
position to see if any other figure is there (steps 670-720). Depending 
on the figure found at "PEEK (B)", a score is assigned and the loop 
continues, or if the figure is an asterisk, a "Zapll" routine is initiated 
and the round ends. 
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In each pass through the loop (steps 550-780), several things 
happen or are checked for. The elapsed time is printed, and there is 
a check to see if the time is up. If so, the loop is terminated and the 
round ends. A block is POKEd into position B. Steps 580 and 585 
provide the vertical wraparound effect. A check is made for direction 
change input from the keyboard. A tone is sounded based on the 
current direction of movement. The old position of the block is 
erased and a new position is calculated. A check is made to see if 
any figures have been struck. If so, they are either scored or, in the 
case of an asterisk, the loop is terminated. After a new total score is 
calculated and displayed, the loop begins again. 

Steps 640 and 760 are time delay steps to slow the block's 
motion and to increase speed as the skill level increases. If a faster or 
slower movement is desired, these steps may be altered. 

A number of REMarks have been included in the program 
listing as an aid to understanding it, but I recommend that they not 
be typed on your computer. This program uses all but about 250 
bytes of standard VIC-20 memory, and including all the remarks may 
result in an "out of memory" error. 



10 PRINT" {CLEAR} " 
20 DIM PL(6) ,R(5) 

30 F0RY=1T05 : F0RX=1T06 : Z (X, Y) =0 :NEXTX:NE 
XTY 

40 C=30720:TB=0:TS=0 
50 POKE36879,239 
60 CP=0;GOTO810 

70 PRINTTAB(3) "{06 DOWN}BY DUB SCROGGIN" 

80 REM-404 WOODROW ST., FT. WALTON BEACH, 

FL 32548 
90 CP=1 

100 FORT=1TO2000 :NEXTT 
110 PRINT" {CLEAR} " 

120 PRINTTAB(5) " {D0WN}DIRECTI0NS" 

130 PRINTTAB(5) " 7777777777 " 

140 PRINT" {DOWN} YOU WILL HAVE 2 MIN.":PRI 

NT"TO GET YOUR BEST SCORE" 
150 PRINT" {YEL} MOVEMENT : " : PRINT" {D0WN}CRS 

R DN=LEFT":PRINT"CRSR RT=RIGHT": 

PRINT"F5=UP" 
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160 PRINT"F7=D0WN": PRINT" {HOME} {04 DOWN} 

170 PRINTTAB(14) "{03 DOWN} {WHT} SCORING : " 

180 PRINTTAB(14) "{BLK}W=1" 

190 PRINTTAB(14) "{CYN}Q=2" 

200 PRINTTAB(14) "{YEL}Z=3" 

210 PRINTTAB(14) "{RED}S=5" 

220 PRINTTAB(14) "{WHT}A=10" 

230 PRINT" {DOWN}YOU ARE: {BLU}{REV} {OFF} 
II 

240 PRINT" {DOWN} DON'T HIT A {PUR}*{BLU} 
R":PRINT"YOU WILL GET {PUR}ZAPPE 
D." 

250 PRINT" {WHT} {DOWN}PRESS ANY KEY TO STA 
RT" 

260 GETA$:IFA$=""THEN260 

270 PRINT" {CLEAR} {WHT} HOW MANY ROUNDS (1- 
5)" 

280 INPUTRN : I FRN< 10RRN> 5THENPRINT" HU H? " : G 
OTO270 

290 PRINT" {DOWN} HOW MANY PLAYERS" : PRINT" ( 
1-6)"; 

300 INPUTPN : I FPN< 10RPN>6THENPRINT" HUH? " : G 

0T029€I 
310 F0RR=1T0RN 

320 F0RP=1T0PN:PRINT" {BLU} {DOWN}PLAYER #" 

;P 

330 PRINT" {DOWN} WHAT SKILL LEVEL?" 
340 PRINT"PRESS 0,1,2,3 OR 4"; 
350 INPUT S 

360 IFS>4 ORS<0THENPRINT"HUH?":GOTO340 
370 PRINT" {CLEAR} {BLU} {REV}SCORE TO BEAT: 
";TB: PRINT" {REV} SKILL LEVEL: ";SL 

380 PRINT" {REV} PLAYER #";PB 

390 FORT=1TO2000:NEXTT: PRINT" {CLEAR}" 

400 DEE FN A(L) =INT(RND(1) * L )+7702 

410 FORF=1TO40-2*S:D=FNA(483) 

420 POKED,87:POKED+C,0:NEXTF 

430 F0RF=1T025:D=FNA{483) 

440 POKED, 81:POKED+C,3:NEXTF 

450 FORF=1TO10+4*S:D=FNA(505) 
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460 POKED, 42:P0KED+C,4:NEXTF 
470 F0RF=1T019:D=FNA(483) 
480 POKED, 90:POKED+C,7:NEXTF 
490 F0RF=1T014:D=FNA(483) 
500 POKED, 83:POKED+C,2:NEXTF 
510 FORF=1TO9+S:D=FNA(505) 

5 20 POKED,65:POKED+C,l:NEXTF 
530 B=7932 

540 TI$="000000" 

550 PRINT"{HOME}TIME:";120-INT(TI/60) ;"{L 
EFT} " 

560 IFTI/60>=120THENGOTO930 

570 POKEB,160:POKEB+C,6 

580 IFB<7636THENB=8229+B-7635 

585 IFB>8229THENB=7636+B-8230 

590 IFPEEK (197)=31THENH=190:DR=-1:GOTO630 

6 00 IFPEEK (197) =23THENH=200:DR=1 :GOTO630 
610 IFPEEK (197) =55THENH=210:DR=-22:GOTO63 



6 20 IFPEEK (197) =6 3THENH=220:DR=22 
630 POKE36878,15:POKE36876,H 
640 FORT=1TO30-5*S:NEXTT 

6 50 POKEB,32:B=B+DR 
660 SC=0 

670 IFPEEK (B)=42THENGOTO790 
680 IFPEEK (B) =87THENSC=1:GOTO740 
690 IFPEEK (B) =81THENSC=2:GOTO740 
700 IFPEEK (B) =90THENSC=3:GOTO740 
710 IFPEEK (B) =83THENSC=5:GOTO740 

7 20 IFPEEK (B) =65THENSC=10 :GOTO740 
730 GOTO760 

740 TS=TS+SC 

7 50 POKE36878,15:POKE36876,160+PEEK{B) 
760 FORT=1TO30-5*S:NEXTT 

770 PRINT" {HOME} {D0WN}SC0RE="; TS 

780 GOTO550 

790 POKE36878,15 

8 00 FORPI=1TO40:POKE36876,180-PI :NEXTPI 
810 PRINT" {PUR} {RIGHT} {06 DOWN} &&&& &&&& ~ 

&&&& && && " 
820 PRINT" {RIGHT} &&&& &&&& &&&& && &&" 
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830 PRINT" {RIGHT} & & &^ & && &&" 
840 PRINT" {RIGHT} & &&&& &&&& && && " 
850 PRINT" {RIGHT} & &&&& &&&& && && " 
860 PRINT" {RIGHT} &&&& & & &" 
870 PRINT" {RIGHT} &&&& & & & &&{BLU 
}" 

880 IFCP=0THEN70 

890 POKE36878,0:POKE36876,0 

900 FORT=1TO2000:NEXTT:PRINT" {CLEAR} " 

910 PRINT" {WHT} {DOWN} {REV}YOU LASTED"; INT 

(TI/60)-3;"{LEFT} SECONDS{ OFF} " 
920 GOTO970 

9 30 POKE36878,15:FORAC=1TO80:POKE36876,21 

0-AC:NEXTAC 
940 POKE36876,0:POKE36878,0 
9 50 PRINT" {CLEAR} " 

960 PRINT" {HOME} {04 DOWN} {BLU} {REV} . . . .T 

IME IS UP...." 
970 PRINTTAB(6) "{DOWN} {REV} {WHT} SCORE=" ; T 

S 

980 Z(P,R) =Z (P,R-1)+TS 

990 IFTS>TBTHENTB=TS:SL=S:PB=P 

1000 PRINT" {DOWN} {BLK}ROUND # : " ; R; " {DOWN} " 

1010 F0RX=1T0PN 

1020 PRINT" {YEL}PLAYER # " ; X; " : " ; Z (X ,R) 
1030 NEXTX 

1040 TS=0:DR=0:H=0:PRINT" {DOWN} " 
1050 NEXTP:NEXTR 
1060 END 
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STARFIGHT3 

DAVID R. MIZNER 

This Is an entertaining action game, but type it in care- 
fully and SAVE It to tape before you RUN It. If you 
made a mistake, reset the VIC and LOAD the program, 
correct it, SAVE It, then RUN It. 

STARFIGHT3 is a program that will let you fight off Klingons to save 
the Federation. Before you start typing away, a little word of warning 
is needed. This program loves memory. In fact, STARFIGHT3 will use 
it all up; so be careful entering the program. An extra space added 
now may cause a "no memory" message later. 
Have fun III 

Program Description 

A new Galaxy is generated each time the program is RUN. Random 
numbers of stars (maximum of 25) and Klingons (maximum of three) 
are generated and, along with the Enterprise, are randomly placed 
in a 10x10 Galaxy. 

The Enterprise is equipped with three photon torpedos for 
every Klingon, and three shield units. Three hits on the Enterprise 
from Klingon attacks will deplete its shield; a fourth hit will destroy 
the Enterprise. There will be self-destruction if the Enterprise runs 
into a star or a Klingon while traveling around the Galaxy. 

Klingons (all that have not been destroyed) will fire at the 
Enterprise if your response time for a command is too slow or if your 
torp misses. Only one hit on the Enterprise is allowed per attack. 
Take note that the Klingons fire their torps in eight directions while 
the good guys can only fire in one direction at a time. However, 
neither side can fire through a star. 

The stars and Klingons remain stationary throughout the game. 

Program Directions 

1 . Observe operating procedures for V\C-20. 

2. Commands 

a. Move: VIC will request direction and distance. Direction is a 
number from 1 through 8, while distance is the number of 
spaces you want to move. 

b. Torp: VIC will request a direction. A torp does not have a 
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fixed distance since a photon torpedo will travel until it hits a 
star, a Klingon, or a Galaxy boundary, 
c. End: This command ends the game. "You surrendered" is 
the real meaning of "end." 

3. Scan 

a. A scan is generated before each command request. 

b. The Galaxy is displayed so you can see the actual location of 
stars, Klingons, and the Enterprise. At the same time, the 
direction code is printed out. 

c. Scan code. 



Enterprise 



Klingon 



♦I -C 



Star 



4. Direction 

The direction for moving the Enterprise or firing a photon 
torpedo is given by entering a number from 1 through 8. These 
numbers will let you move or fire a torp every 45 degrees. 




5. Changing the game's difficulty 

a. You can change the number of torps allowed by modifying 
line 1 80. 

b. Another way is to change the time you are allowed before 
the Klingons fire. The value of TIS is changed by modifying lines 
410, 500 and/or 1300. 

To use STARFIGHT3 on a VIC with expanded memory, delete 
lines 30 through 1 00, substitute an "E" for the "@" in line 920 and 
substitute a "K" for the "#" in line 980. There will be no little ships 
now, but the program will run. 

If you are receiving an OUT OF MEMORY error message, it is 
probably due to lines 30-100. Once the program has been RUN, 
these lines set aside memory that cannot be touched. So, if you 
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make a typo and try to rerun the program, you will run out of memory. 
The following procedure will let you make corrections: 

I . Make the correction. 2. SAVE the program. 3. Turn the VIC 
off, then back on. 4. LOAD the corrected program. 5. RUN. 



10 PRINT" {CLEAR} ** STARFIGHT3 **" 

20 PRINT :PRINT"DAVID R MIZNER,SEP81" 

30 X=PEEK (56)-2:POKE52,X:POKE56,X:POKE51 

,PEEK(55) :CLR 
40 CS=256*PEErK(52)+PEEK(51) 
50 F0RI=CST0,CS+511 :POKEI ,PEEK (I + 32768-CS 

) :NEXT 

60 FORI=7168T07175 :READJ : POKEI , J :NEXT 

70 DATA15,68,228,254,228,68,15,0 

8 FORI=7448T07455:READJ:POKEI,J:NEXT 

90 DATA7, 12, 204, 252, 204, 12, 7,0 

100 POKE36869,255 

110 DIMA% (10,10) ,KL(6) 

120 FORI=1TO10 

130 FORJ=1TO10 

140 A% (I ,J)=0 

150 NEXTJ 

160 NEXTI 

170 K=INT(RND(1) *3+l) : S=INT (RND ( 1 ) *25+l ) 
180 KC=K:T=3*K:H=3 
190 F0RI=1T0S 
200 GOSUB840 

210 IFA% (C1,C2) O0THEN200 
220 A% (C1,C2)=1 
230 NEXTI 
240 F0RI=1T0K 
250 GOSUB840 

260 IFA% (C1,C2) O0THEN250 

270 A% (C1,C2)=2:KL(I)=C1:KL(I+3)=C2 

280 NEXTI 

290 GOSUB840 

300 IFA% (C1,C2) O0THEN290 

310 A% (C1,C2)=3:E1=C1:E2=C2 

320 PRINT:PRINT:PRINT"KLINGONS" ,K 

330 PRINT:PRINT"TORPS" ,T 

340 PRINT:PRINT"STARS" ,S 

350 FORI=1TO3000:NEXT 

360 GOSUB860 

370 PRINT: PRINT"ENTER YOUR COMMAND" 
380 PRINT" 1=M0VE 2=T0RP 3=END" 



74 



CHAPTER TWO 



390 TI$="000000" 

4 00 INPUTC 

410 IFTI$<"000015"THEN440 

420 GOSUB1130 

430 GOTO360 

440 ONCGOTO470 ,580 

4 50 PRINT" > YOU SURRENDERED" 

460 GOTO1420 

470 PRINT:PRINT"ENTER DIRECTION, DISTANCE" 

480 C1=E1:C2=E2:TI$="000000" 
490 INPUTC, D 

500 IFTI$<"000015"THEN530 
510 GOSUB1130 
520 GOTO350 

530 IFC>8ORD>14THEN490 
540 A% (E1,E2)=0:GOSUB670 
550 E1=T1:E2=T2 

560 IFA% (E1,E2)=10RA% (El ,E2) =2THENPRINT"> 

HIT A STAR OR KLINGON" :GOTO1420 
570 A% (E1,E2)=3:GOTO360 
580 IFT>0THENGOSUB1270 
590 IFT>0ANDKC>K0THEN360 
600 PRINT" >N0 MORE TORPS" 
610 IFKO1THEN640 

6 20 PRINT" >RAM LAST KLINGON" 
630 GOTO470 

640 PRINT" >YOU' RE OUTNUMBERED" 
650 PRINT">FEDERATION IS LOST" 
660 GOTO1420 

670 ONCGOTO690,7 00,710,7 20,7 30,740,750 

680 U=-1:V=-1:GOTO760 

690 U=-l :V=0:GOTO760 

700 U=-1:V=1:GOTO760 

710 U=0:V=1 :GOTO760 

720 U=1:V=1:GOTO760 

730 U=1:V=0:GOTO760 

740 U=1:V=-1 :GOTO760 

750 U=0:V=-1 

760 F0RI=1T0D 

770 T1=C1+I*U:T2=C2+I*V 

7 80 IFTl<lORTl>i0ORT2<lORT2>10THEN820 
790 IFA% (T1,T2) >0THEN830 

8 00 NEXTI 
810 GOTO830 

820 T1=C1+(I-1)*U:T2=C2+(I-1)*V 
8 30 RETURN 

8 40 C1=INT(RND(1) *10+1) : C2=INT (RND ( 1 ) *10+ 1) 
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850 RETURN 

860 PRINT:PRINT" *** SCAN ***" 
870 PRINT:PRINT" ++++++++++++" 
880 FORI=1TO10 
890 PRINT" 
900 FORJ=1TO10 

910 ONA%(I,J)+1GOTO940,960,980 
920 PRINT"@' 
930 GOTO990 
940 PRINT" ' 
950 GOTO990 
960 PRINT"*"; 
970 GOTO990 
980 PRINT"*") 
990 NEXTJ 

1000 ONIGOTO1020, 1030, 1040, 1050, 1060, 1070, 

1080 
1010 GOTO1090 

1020 PRINT"+ COURSE" :GOTO1100 
1030 PRINT"+":GOTO1100 
1040 PRINT"+ 1":GOTO1100 
1050 PRINT"+ 8 2":GOTO1100 
1060 PRINT"+ 7 3":GOTO1100 
1070 PRINT"+ 6 4":GOTO1100 
1080 PRINT"+ 5":GOTO1100 
1090 PRINT"+" 
1100 NEXTI 

1110 PRINT" ++++++++++++" 
1120 RETURN 
1130 F0RM=1T0K 

1140 C1=KL(M) :C2=KL(M+3) :D=14 
1150 IFA% (C1,C2)=0THEN1210 
1160 PRINT" >KLINGON SHOOTING" 
1170 F0RC=1T08 
1180 GOSUB670 

1190 IFA% (T1,T2)=3THEN1230 

1200 NEXTC 

1210 NEXTM 

1220 GOTO1260 

1230 H=H-1:IFH<0THEN650 

1240 PRINT:PRINT">ENTERPRISE IS HIT" 

1250 PRINTH"SHIELD UNITS LEFT" 

1260 RETURN 

1270 PRINT:PRINT"PHOTON TORP DIRECTION" 
1280 TI$="000000" 
1290 INPUTC 

1300 IFTI$<"000015"THEN1330 
1310 GOSUB1130 
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1320 GOTO1410 

1330 C1=E1:C2=E2:T=T-1:D=14 
1340 IFO8THEN1270 
1350 GOSUB670 

1360 IFA% (T1,T2)<>2THEN1400 
1370 A%(T1,T2)=0:KC=KC-1 

1380 IFKC=0THENPRINT"> FEDERATION SAVED <* 

:GOTO1420 
1390 GOTO1410 
1400 GOSUB1130 
1410 RETURN 
1420 PRINT:PRINT 

1430 INPUT" ANOTHER GAME l=yES";Z 
1440 IFZ=1THEN120 
1450 END 



n 
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Alphabetizer 

JIM WILCOX 

This simple bubble sort can be used in many programs 
which need an alphabetizing sort. Lines 10-20 enter the 
array AS; lines 80-120 sort AS, when they are given 
VAR, the number of variables. 



The following program will alphabetize letters, or put numbers in 
order from lowest to highest. The first thing that will happen is that 
the screen will clear and the message "HOW MANY VARIABLES?" 
will appear on the screen. You then type in the number of names 
you wish to sort. The variable "VAR" will take on the value typed in. 
The statement at line number 20 will set the amount of variables of 
the dimensioned variable "AS". If you are stuck on dimensioned 
variables, read on. 

DIMensioned Variables 

DIMensioned variables can be compared to houses on a street. Let's 
say the house numbers on this block start at I and end at 10. They 
all belong to the street named, say, "Washington." To make things 
easier than naming each house after a different president, they are 
given numbers. There might be another house with the number 2, 
but not on the same street. The name of the street is the variable, but 
there is more than one house on the street, and houses are variables 
too. To get a letter to house #2 on Washington Street, one would 
have to write the person's name, "Jones," who would reside at 2 
Washington Street. In a computer program, one could set the 
variable WASHINGTON S(2) = "JONES". 1 Washington Street might 
have the "Georges" living there, so the variable would be 
WASHINGTON$(l) = "GEORGE". So a DIMensioned variable is a 
variable that has other variables related to it; i.e., all the people on 
the block have in common the fact they live on Washington Street. 

I recommend that you try a small list first, such as ten of the 
letters of the alphabet mixed up. It will not take long to put the 
characters in order, and the programmer can tell whether the 
program was typed in properly. On longer lists it becomes tempting 
to hit the RUN/STOP key to see if the computer is stuck in an endless 
loop, but the longer the list, the longer it takes. 
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10 INPUT" {CLEAR} HOW MANY VARIABLES" ; VAR 
20 DIM A$ (VAR+22) 

3 FOR A=l TO VAR 

4 PRINT "#";A; 
50 INPUT A$ (A) 
60 NEXT A 

70 PRINT"ALPHABETIZING" 

8 FOR A=l TO VAR-1 

9 FOR B=A+1 TO VAR 

100 IF A$(B)<=A$(A)THENSM$=A$(B) :A$(B)=A$(A) 

$ (A) =SM$ 
110 NEXT B 
120 NEXT A 

130 PRINT"FINISHED ALPHABETIZING" 

140 POKE 36878,8 

150 POKE 36874,250 

160 FOR A=l TO 500 

170 NEXT A 

180 POKE 36878,0 

190 POKE36874,0 

200 FOR A=l TO VAR STEP 22 

210 FOR B=A TO A+21 

220 PRINT A$ (B) 

230 NEXT B 

240 GET A$:IF A$=""THEN240 
250 NEXT A 
260 END 
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Count The Hearts 

CHRISTOPHER J. FLYNN 



As yet there are very few computer programs suitable 
for young children. However, the computer can be a 
fascinating learning aid for children. Graphics and 
sound will hold the attention of the very young while 
teaching. "Count the Hearts" is a colorful program for 
preschoolers. 

"Count the Hearts" is a program which will help you develop your 
child's counting skills. VIC will display a certain number of hearts on 
your television screen. Ask your child to count them. If your child can 
correctly count the hearts, he or she will be rewarded by a duet of 
chirping birdies. To challenge older children, you can limit the time 
VIC allows for a response. 

Once it is set up, no reading is required to play "Count the 
Hearts." However, preschoolers will probably need you to help 
them with the keyboard. 

Setting Up 

When you first start "Count the Hearts," it will ask you for a range of 
numbers and a time limit. 

You can tailor the game to your child's counting skills by trying 
different number ranges. For example, you may want to start with 
numbers between one and five. Gradually, a child will work up to 
counting up to ten. If you notice difficulties with some numbers, you 
might want to work within that range (say from six to nine). 

Here is how VIC will ask you to set the number range: 

1. VIC will display: 
ENTER NUMBER RANGE 
LOWNUMBER(l)? 

2. You should type in the low number in the range (don't 
forget to hit RETURN). If you just hit RETURN, VIC will use one 
as the low number. 

3. Next VIC will ask: 
HIGH NUMBER (9)? 

4. Now type in the high number. Again, if you just hit RETURN, 
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VIC will use nine as the high number. 

ViC will make sure that your low number is really lower than your 
high number. It will also make sure that neither number is greater 
than 484. Why 484? Well, that's how many spaces are left on the 
screen for displaying the hearts. 

The time limit gives you a way to speed up "Count the Hearts." 
If you don't take a guess at how many hearts there are within the 
time limit, then VIC will let you know that time's up. VIC will then 
just start another game. 

VIC will ask you for the time limit: 

5. VIC will display: 
TIME LIMIT PER SET 
SECONDS (120)7 

6. Type in the number of seconds you want to use for the time 
limit. If you just type RETURN, ViC will set the time limit to 120 

seconds, or two minutes. 

By the way, if, in any of the above steps, VIC didn't understand your 
response, it will either ask the question again or ask you to repeat 
your response. 

Counting Hearts 

The television screen will go blank for just an instant. In that brief 
instant VIC is deciding how many hearts it will ask you to count. 
Then, one by one, VIC displays the hearts at random locations on 
the television screen. As it shows each new heart, VIC says in a deep 
voice, "BEEP!" Notice how VIC paints the hearts in different colors. 
Now VIC will ask: 

HOW MANY HEARTS? 

Ask your child to count them. Type in the number (don't forget 
RETURNIJ and see what happens. What happens if your child gives 
the right answer? How about a wrong answer? What is your child's 
reaction? 

VIC will start a new game when the right answer is typed in or 
when time runs out and nothing has been heard from the keyboard. 
VIC is very patient with small folks learning to count. When a wrong 
answer is given, VIC just resets its timer and gives them another try. 

Scoring 

When finished playing "Count the Hearts, "just hit the Fl key in 
reply to the "HOW MANY HEARTS?" question. VIC will promptly 
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clear the screen and tell you: 

- how many games were played 

- how many correct answers there were 

- how many wrong answers there were 

- how many times the player ran out of time 

By keeping track of the number range (VIC shows you the range you 
used) and the scores, you can note your child's progress. For example, 
do you notice a little slowness in your child's learning to count past 
ten? We did. That seems to be the upper limit for our three year old 
for a while. 

Hints 

You probably don't need to be reminded that the attention span of 
preschoolers is not long. Try to move on to another activity before 
your child gets bored and begins to act silly. You want your child to 
remember counting as something that is fun to do. 

One way for you to help beginners is for you to point to the 
hearts very slowly, one by one. Let your child count them as you 
point to them. Gradually your child will take over the pointing. And, 
before you know it, your child will be typing in the numbers on the 
keyboard! Experiment. Try out different arrangements. What works 
best for you? 

The program will run on a standard VIC without memory 
expansion. If you need to, you should be able to modify "Count the 
Hearts" without too much trouble. 

Now you're ready to play "Count the Hearts"! But remember, to 
stop the game and see your score, all you need to do is press the Fl 
key. Have fun. 



100 REM VIC-20 

110 REM COUNT THE HEARTS 

120 REM VI. 7/81 

130 REM COPYRIGHT 1981 HOMESPUN SOFTWARE 
200 REM 

210 REM HEARTS. BEG IN 
220 GOSUB 30000 
230 REM PLAY GAMES 
240 GOSUB 1000 
250 IF Q=0 THEN 240 
260 REM HEARTS. END 
270 GOSUB 31000 
280 END 
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1000 REM PLAY GAMES 

1010 PRINT CHR${147) 

1020 REM DISPLAY HEARTS 

1030 N=L0+INT((HI-L0+1)*RND(1)) 

1040 FOR 1=1 TO N 

1050 P=INT(484*RND(1) ) 

1060 CL=INT(8*RND(1) ) :IF CL=1 THEN 1060 

1070 IF PEEK(VA+P)=83 THEN 1050 

1080 POKE VA+P,83 

1090 POKE CA+P,CL 

1100 POKE VL,15 

1110 POKE 82,200 

1120 FOR Z=l TO 400:NEXT 

1130 POKE S2,0:POKE VL,0 

1140 NEXT I 

1150 G=G+1:REM GAMES 

1160 PRINT CHR$(19); 

1170 FOR I=1T021:PRINT" "; :NEXT 

1180 PRINTCHR$ (19) ; "HOW MANY HEARTS ? "; 

1190 REM GET RESPONSE 

1200 GOSUB 3000 

1210 IF R$="QUIT" THEN Q=1:RETURN 

1220 IP R$="TIME" THEN GOSUB 9000:RETURN 

1230 REM O.K.? 

1240 R=VAL(R$) 

1250 IF RON THEN GOSUB 5000:GOTO 1160 
1260 IF R=N THEN GOSUB 7000 
1270 RETURN 

3000 REM TIMED RESPONSE 

3010 T1=TI+SC*60 

3020 R$="" 

3030 REM TRY A KEY 

3040 GET A$ 

3050 IF TI>T1 THEN R$="TIME" : RETURN 
3060 IF A$="" THEN 3040 

3070 IF ASC(A$)=133 THEN R$="QUIT" : RETURN 
3080 IF ASC(A$)=13 THEN RETURN 

3090 IF ASC(A$)=20 AND LEN(R$)>0 THEN GOSUB 330 

0:R$=LEFT$ (R$, (LEN(R$)-1) ) :GOTO3040 
3095 IF ASC(A$)=20 THEN 3040 
3100 PRINT A$; 

3110 IF A$<"0" OR A$>"9" THEN GOSUB 3300:GOTO 3 
040 

3120 R$=R$+A$ 

3130 GOTO 3040 

3 300 REM BACKSPACE 
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3310 PRINT CHR$ (157) ; 

3320 PRINT " "; 

3330 PRINT CHR$ (15^) ; 

3340 RETURN 

5000 REM WRONG 

5010 WR=WR+1 

5030 REM UFO-VARIATION 

5040 POKE VL,15 

5050 FOR L=l TO 15 

5060 POKE SB, 42 

5070 FOR M=200 TO 220+L*2 

5080 POKE S3,M 

5090 NEXT M 

5100 POKE SB, 25 

5110 FOR Z=1T0 25:NEXT Z 

5120 NEXT L 

5130 POKE VL,0:POKE S3,0 

5140 POKE SB, 27 

5150 RETURN 

7000 REM RIGHT 

7010 RI=RI+1 

7020 REM BIRDS VARIATION 

7025 PRINT CHR$ (19) ; :FOR Z=l TO 21:PRINT " "; :N 

EXT Z 

7030 POKE VL,15 

7040 FOR L=l TO 20 

7050 PRINT CHR$ (19) ;SPC(5) ;CHR$ (106) ;CHR$ (113) ; 
CHR$(107) ; 

7055 PRINT SPC(5);CHR$(117);CHR$(113);CHR$(105) 

7060' FOR M=254 TO 240+RND(l) *10 STEP -1 

7070 POKE S3,M 

7080 NEXT M 

7090 POKE S3,0 

7100 FOR M=l TO 100:NEXT M 

7110 PRINT CHR$ (19) ;SPC(5) ;CHR$ (117) ;CHR$ (113) ; 
CHR$(105) ; 

7115 PRINT SPC(5);CHR$(106);CHR$(113);CHR$(107) 

7120' FOR M=l TO 120*RND(1) :NEXT M 
7130 NEXT L 

7140 POKE S3,0:POKE VL,0 
7150 RETURN 
9000 REM TIME 
9010 TM=TM+1 

9020 VM=VA+253:CM=CA+253 
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9030 REM TONE 

9040 POKE S3,240:POKE VL,15 
9050 J=0 

9060 FOR L=15 TO STEP -2 

9070 POKE VM+J,81:P0KE CM+J,2 

9 080 POKE VM-J,81:P0KE CM- J , 2 

9090 POKE VM+22*J,81:POKE CM+22*J,2 

9100 POKE VM-22*J,81:POKE CM-22*J,2 

9110 FOR Z=l TO 50:NEXT Z 

9120 POKE VM+J,32 

9130 POKE VM-J,32 

9140 POKE VM+22*J,32 

9150 POKE VM-22*J,32 

9160 FOR Z=1TO50:NEXT Z 

9170 POKE VL,L 

9180 J=J+1 

9190 NEXT L 

9 200 POKE VM-2,20:POKE CM-2,4 
9210 POKE VM-1,9:P0KE CM-1,4 
9220 POKE VM,13:P0KE CM, 4 
9230 POKE VM+1,5:P0KE CM+1,4 
9240 POKE S3,0:POKE VL,0 
9250 FOR Z=l TO 2000:NEXT Z 
9 260 RETURN 

30000 REM HEARTS. BEGIN 

3 0010 REM CONSTANTS/VARS 

30020 VA=7702 

30030 CA=38422 

30040 SB=36879 

30050 VL=36878 

30060 S2=36875 

30070 53=36876 

30080 54=36877 

30090 L0=1 

30100 HI=9 

30110 SC=120 

30120 G=0 

30130 TM=0 

30140 RI=0 

30150 WR=0 

30160 Z=RND(-TI) 

30170 PRINT CHR$(147); 

30180 PRINT SPC(8) ;"VIC-20" 

30190 PRINT 

30200 PRINT" COUNT THE HEARTS" 
30210 PRINT:PRINT 
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30215 PRINT CHR$(158); 

30220 PRINT" COPYRIGHT 1981" 

30230 PRINT" HOMESPUN SOFTWARE" 

30235 PRINT CHR$ (31) ; 

30240 PRINT:PRINT 

30250 PRINT"ENTER NUMBER RANGE" 

30260 INPUT" LOW NUMBER (1)";L0 

30270 L0=ABS(INT(L0) ) 

30275 IF L0<1 OR LO>484 THEN PRINT "SORRY" : L0=1 : 

GOTO 30260 
30280 INPUT"HIGH NUMBER (9)"; HI 
30290 HI=ABS(INT(HI) ) 

30300 IF HI<=LO OR HI>484 THEN PRINT"SORRY" : HI=9 

:GOTO 30260 
30310 PRINT 

30320 PRINT"TIME LIMIT PER SET:" 
30330 INPUT"SECONDS (120) ";SC 
30340 SC=ABS(INT(SC) ) 

30345 IF SC<1 THEN PRINT "SORRY" : SC=120 :GOTO 303 
30 

30350 PRINT:PRINT 

30360 PRINT"KEY Fl TO STOP" 

30370 PRINTrPRINT 

30380 PRINT"THANK YOU. HAVE FUN!" ' 

30390 FOR Z=1TO2000:NEXT 

30400 RETURN 

31000 REM HEARTS. END 

31010 PRINT CHR$(147) 

31020 PRINT"COUNT THE HEARTS" 

31030 PRINT:PRINT 

31032 PRINT"LOW #",L0 

31034 PRINT"HIGH #",HI 

31036 PRINT:PRINT 

31040 PRINT "# GAMES", G 

31050 PRINT "# RIGHT", RI 

31060 PRINT "# WRONG", WR 

31070 PRINT "# TIME OUTS";TM 

31080 RETURN 
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PRINTing With Style 

JAMES P. McCALLISTER 

This extensive tutorial covers nearly everytiiing you'll 
need to know about PRINT. 

One of the beauties of VIC BASIC is that simple commands are all 
you need to print information on the screen. As a novice, you can 
concentrate on the parts of the program you're most interested 
in, and not have to cope with numerous rules devoted to the output 
itself. 

Sooner or later, though, we all start to get fussy about the 
appearance of the screen. And it is possible to create very effective 
printed displays on the screen. Given the limited format-22 characters 
wide by 23 lines high - the key is not to waste any of that precious 
area. Naturally a certain amount of open space is needed to avoid a 
cluttered look. And you've got to put the printing exacf/j/ where you 
want it, not one column to the left or right. Unused spaces at the 
right and left edges are wasted unless they serve a purpose, and 
unintentional line skipping shouldn't be tolerated. 

This article will show you how easy it is to achieve these goals. 
We'll end up with a program that simulates an Electronic Checkbook 
and makes use of the entire screen. 

The PRINT Statement - The Programmer's 
Paintbrush 

If the screen is your canvas, the PRINT statement is your paintbrush. 
Basically, it prints the values of a list of variables on the screen. The 
list is flexible. Instead of actually naming a numeric variable in the 
list, you may give a function (formula) which in effect computes a 
variable. When the PRINT statement encounters the function in the 
list, it will compute its value and print it. Also, instead of actually 
naming a string (alpha-numeric) variable in the list, you can create a 
literal string (characters enclosed in quotation marks). The result of all 
this is still a list of variables whose values are to be printed. But in 
some cases you create the variables within the PRINT list, while in 
others you compute the variables earlier and then include them by 
name in the PRINT list. The list can be only one variable long, which 
doesn't even look much like a list. But it's called a list, just the same. 
Just what the results of a PRINT statement look like depend on 
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two things: ( 1 ) the values of the variables in the list, and (2) the use 
of the four PRINT statement position controls. The four position 
controls are the comma (,), semicolon (;), SPC, and TAB. In the list, 
variables (or functions, or literals) are separated by one or more 
position controls. Each control affects where the next printing will 
take place. Thus, when the PRINT statement encounters a variable in 
the list, the next spot where printing will occur on the screen is 
already determined by what has gone before. 

First, consider the variables. If the variable is a numeric variable, 
its value will be printed with either a minus sign or a space before, 
and one space after. The value will be exactly the one stored for that 
variable name, with no rounding. If there is no decimal fraction, no 
decimal point will be printed. If there is a decimal fraction, all trailing 
zeros on the right end will be deleted - the decimal fraction cannot 
end with 0. 

If the variable is a string variable, the characters will be printed 
with no extra space before or after. Conversion of numeric variables 
to string variables is often helpful. If X is a numeric variable, STR$(X) 
will print with either a minus sign or space to the left of X, but with 
no space to the right. If a string variable contains characters which 
have a non-printing function, such as CLR, cursor movement, color 
control, or the like, those functions will execute and affect the 
display accordingly, when the PRINT statement is executed. The 
cursor controls affect the next print position even though the cursor 
isn't visible on the screen. 

When it comes to using these non-printing string variable 
characters to control print position, the sky's the limit! There's almost 
nothing you can't do with a little imagination and the cursor controls. 
You can make life a whole lot easier, though, by understanding the 
four PRINT statement position controls. Until you do, you will prob- 
ably: ( 1 ) use many more cursor characters than you need; (2) use a 
lot of trial and error to get your display the way you want it; and (3) 
find your program display isn't consistent when run with a variety 
of data. 

Using , ; SPC And TAB 

The variables in the PRINT list must be separated by one or more of 

these PRINT statement position controls: 

, moves the next print position to column ] I or column of the 
next line, whichever is next. Multiple commas move the next 
print position forward 1 1 spaces for each additional comma. 
; specifies that the next print position will be the very next one 
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available. Remember, though, that a numeric variable comes 
with a built-in space after, and maybe one before. Multiple 
semicolons have the same effect as just one. You still get the 
next position available. A semicolon following another position 
control has no effect whatsoever, except to use up a byte of 
memory. 

SPC(X) moves the next print position forward X spaces (255 

maximum). X can be a number or a function. - 

TAB(X) moves the next print position forward to column X. if 

the next print position available is already higher than X, TAB 
is ignored. X can be a number or a function. "Multi-line" lines, 
which we'll talk about later, make TAB a little trickier than 

the others. 

SPC and TAB separate the variables in a PRINT list just as well as a 
comma or semicolon and no additional punctuation is needed. 

If desired, comma, SPC, or TAB can be used at the beginning of 
a PRINT list, before any variable, with the expected result. The 
semicolon has no effect at the beginning of a list. 

At the end of a PRINT list, after the last variable, any of the four 
position controls can be used. The result is as if the list in the next 
PRINT statement encountered were a continuation of the list in the 
current PRINT statement. This is a most useful feature. Further, the 
absence of any of the four position controls at the end of a PRINT list 
is also an important control in itself. The result is that the next print 
position is moved to the beginning of a new line. An empty PRINT 
statement, with no list, is a special case of this rule. The next print 
position moves to the beginning of another line - even if the empty 
PRINT statement was already at the begirining of a new line. 

"Multi-line" Lines 

Ordinarily, a line is 22 columns wide - positions through 2 1 . But 
suppose you print a variable in the rightmost column, position 2 1 . 
Then 22 more positions are automatically added to that line and the 
next print position is 22. Of course, position 22 is on the left edge of 
the screen, just like 0, but the label for that position is 22, not 0. If, for 
example, the next item in the list were TAB(9) it would be ignored, 
because position 9 is already past. TAB(31 ) would work just fine, 
though, and land on the intended spot. This process can continue 
with up to three continuation lines, going all the way to position 87. 

The multi-line process happens automatically, and you don't 
have to pay much attention to it except for two reasons. First, if you 
want to use the TAB position control, you'll need to know which 
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position you're in. If you didn't print in column 21 of the last line, 
there's no question about it - the current line is positions through 
2 1 . If the situation is complicated, you can find out where you are by 
using the function POS(X), where X is a "don't care" number such as 
0. This function returns the current next printing position. If you want 
to TAB to position 9 or its multi-line equivalent, you can use TAB(9 + 
INT(POS(0)/22)*22). If the situation allows, it's much better to use the 
SPC position control, because you don't need to know where you 
are. Four spaces forward means the same thing, no matter what 
your position. 

The second - and even more important - reason to think about 
"multi-line" lines is to eliminate unwanted line skipping after ending 
in the rightmost column. After all, with only 22 columns to start with, 
we don't want to shy away from column 2 1 just because it tends to 
force line skipping. When you print a variable that ends in position 
2 1 , simply put a semicolon after the variable (or function, etc.) in the 
list. This will always cause the next printing to be on the very next 
line, regardless of which print position (2 1 , 43, 65 or 87) you were in. 
This works without any thought about the mechanics, but if you're 
curious, the Screen Line Link Table allows you to see what's going 
on. We'll look at that as a part of the program. 

Using The Full Screen 

You're almost ready to make full use of the VIC's screen format, if 
you'll keep in mind these points: 

1 . Remember the spaces that come "free" with every numeric 
variable - one before, unless the number is negative, and one after 
all numbers. The function STR$(X) gets rid of the one on the right. If 
you know the number isn't negative, MiD$(STR$(X),2) eliminates the 
space on the left as well. For positive whole numbers from to 99, 
RIGHT$|STR$(X),2) occupies just two positions and is right justified. 
That is, the right digits of every number in the column are aligned. 
To print numeric variables on the left or right edge of your screen, 
you'll have to use tricks like these. 

2. Use a semicolon after ending a variable in column 21, to 
avoid skipping the next line. This also applies if the "free" space to 
the right of a numeric variable lands in column 2 1 . (But the Screen 
Line Link Table turns out differently.) 

And now, for the last frontier - the bottom of the screen. If your 
program completes execution, VIC will skip a line and print READY. 
If you have already printed on 23 lines, this will cause at least two 
lines at the top to roll off. It's easy enough to prevent this by inserting 
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XX GETASrIFAS = " THEN XX (XX is the line number) 

after the last PRINT statement. This forces VIC to keep executing this 
line until you press a key, which you won't do until you've finished 
looking at the display. But the lower right corner is still a holdouti 
If you print in the lower right corner, VIC will immediately roll 
up another blank line (several, if a "multi-line" line is at the top) to 
be ready for the next PRINT list item. And thus you lose the top of 
your hard-won display. Simply not printing in the lower right corner 
may be the solution, in which case you're all set to use your screen. 
On the other hand, if you've been putting numbers all the way 
down the right side of the screen, you might have a strong desire to 
print the total on the bottom line, directly beneath. Some day Com- 
modore may tell us a better way, but until then, insert this line: 

IF PEEK(214) =22 THEN POKE 214,21 

Location 2 1 4 is one of several which keep track of cursor and print 
line position, but it's the one that does the trick. It fools a portion 
of the operating system into thinking you're only on the second 
last line. This statement must come after the next print position 
has moved to the bottom line, but before you print in the lower right 
corner. 

Electronic Checkbook Display 

Program I provides the display for an Electronic Checkbook. The 
data is simulated (lines 40, 50, and 140) to keep the program short, 
but you can see the exciting possibilities with the PRINT techniques 
we've discussed. 

The dates are the first item in the PRINT list of line 1 50. The 
RIGHT$(STR$(DT),2) function eliminates a useless space to the left of 
the two-digit numbers, and also right-justifies the one-digit numbers 
for a neater appearance. The first SPC in line 1 70 right-justifies CK on 
column 5, regardless of the number of digits, one, two, or three. And 
don't miss line 180; that lets us print in the lower right corner. 

The subroutine beginning at 995 prints the dollar amounts with 
trailing zeros in the cents columns. The cents conversion is in line 
1020. The trick is to convert the cents to a rounded whole number, 
add 100 to it, and print only the two right hand digits. That's the only 
way to get the $ 1 500.00 in the first entry to keep all its zeros. Line 
1 030 computes the value for the multi-line TAB function in the PRINT 
statement. 

Since subroutines can't pass variables as an argument, it's 
necessary to set the variables needed before calling the subroutine. 
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The dollar amount to be printed is put in X. Optionally, D= I causes 
a dollar sign to be printed, as in the first entry of the Checkbook, and 
R= 1 causes the amount to be printed in the reverse font. The 
subroutine resets D and R, so it's only necessary to use them as 
exceptions. Also, I couldn't resist printing the negative amounts in 
purple, because it's so easy to do. 

The Program 1 add-on should be merged with the first program, 
after you've got Program I running. It produces a second page after 
you press the space bar or any other key. The program stores and 
then prints the values of the Screen Line Link Table. This table is 
found in memory locations 2 1 7-239. Each location corresponds to a 
line of the screen. For the top half, 1 58 designates a starting line and 
30 shows a continuation line. For the lower half, the numbers are 
1 59 and 3 1 . The values were PEEKed while the Checkbook display 
was on the screen, and apply to it. 

In the Checkbook display, line of the display was a starting 
line. Since line didn't print in column 21, line 1 was also a starting 
line. Lines 2 and 3 are continuation lines, but since line 3 didn't print 
in column 21, line 4 was a starting line, again. From then on, column 
21 was used on every line. Therefore, the lines are grouped in fours - 
one starting line followed by three continuation lines. You'll never 
need to refer to this table to do your PRINTing, but sometimes 
understanding what's going on in VIC's brain can be helpful. 

The add-on program uses simpler methods for printing than the 
main program. The only shortcoming is that the columns are left- 
justified while we would prefer right justification. For program 
analysis and the like, this is probably a good trade-off between 
PRINT statement complexity and results. Another note - observe the 
automatic line skip after printing the top line of the add-on display 
on the screen, because it is a full line. If you want to experiment, put 
a semicolon at the end of statement 220, and the skipped line will 
not be there. 

In the first part of the program, line 90 initializes the random 
number generator so the results are always the same. You can 
delete line 90, and successive runs of the program will give changing 
dollar amounts. 

Once you have a feel for how the program does the PRINTing, 
here's an exercise for the adventurous. The variable for whole 
dollars, DLS, has either a space or a minus sign to the left of the 
digits. You can see the spaces on the reverse image BALANCES in 
the display. The positive numbers might look better without the 
space. See if you can fix things so the minus sign comes through. 
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but there's no space before the positive numbers. It's not hard - 

good luck, and good PRINTing. 



Program 1. 

9 REM CONSTS FOR SUBR 

10 C$ (0)="":C$ (1)="{PUR}" 
20 R$(0)="":R$ (1)="{REV}" 
30 D$ (0)="":D$ (1) ="$" 

3 5 REM CONSTS FOR MAIN PROGM 

4 PP$="PPPPPPP" 
50 IT$="IIIII" 

60 Hl$ = '' {CLEAR} CHECKBOOK DEMO" 

70 H2$="{REV}DATE PAYEE {OFF}AMOUNT" 

80 H3$=" {REV}CK# ITEM BALANCE{OFF} " 

8 5 REM STRT MAIN PRGM 

9 X=RND(-1) 

100 PRINTH1$, H2$; H3$; 

110 PRINT" 1 BAL FWD" 

120 BL=1500:X=BL:R=1:D=1:GOSUB1000 

130 FORN=2TO10 

140 DT=2*N:CK=N+N*N:AM=INT(5E+4*RND(1) )/100:RE 

M SIMULATED DATA 
150 PRINTRIGHT$ (STR$ (DT) ,2) ;SPC(4) ;PP$; 
160 X=AM:GOSUB1000 

170 PRINT SPC(5-LEN(STR$ (CK) ) ) ;STR$ (CK) ;SPC(3) 
;IT$; 

180 IFPEEK(214)=22THENPOKE214,21 
190 BL=BL-AM:X=BL:R=1:GOSUB1000:NEXT 
200 GETA$:IFA$=""THEN200 
995 REM $ PRINT SUBR 
1000 C=0:IFSGN(X)=-1THENC=1 
1010 IX=INT(ABS(X) ) *SGN(X) :DL$=STR$ (IX) 
1020 DC$=RIGHT$ (STR$ (INT( (1000*ABS (X-IX) +5) /10) 
+100), 2) 

1030 TB=22*INT(POS(0)/22)+19-LEN(DL$)-D 

1040 PRINTTAB(TB)C$ (C) ;R$(R) ;D$(D) ;DL$ ; " . " ; DC$ ; 

"{OFF}";"{BLU}"; 
1050 R=0:D=0: RETURN 



Program 2. Add to Program 1 . 

5 DIM SC(22) 
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210 FOR N=0 TO 22:SC(N) =PEEK (217+N) :NEXT 
220 PRINT" {CLEAR} SCREEN LINE LINK TABLE" 
230 PRINT"LINE CODE LINE CODE",,, 
240 PORN=0TO10 

250 PRINT N;TAB(4) ;SC(N) ,N+12;SC(N+12) :NEXT 
260 PRINT" 11 ";SC(11) 
270 END 
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Train Your PET To 
Run VIC Programs 



LYLE JORDAN 



The VIC, thanks to a built-in "relocating loader," can 
easily LOAD PET/CBM tapes. The PET/CBM can load pro- 
grams written on a VIC, but it isn't possible to use these 
programs unless they are moved from memory location 
$1001 to $0401. 



Have you already wished for the capability to renumber your VIC 
program, or to get a printout, or to save it on a disk? 

This could be especially frustrating if you have a PET, a printer, and 
a disk sitting idly nearby. 

Or how about satisfying the desire to "upload" your VIC program 
into a PET? This article will give you a couple of quick and easy ways 
to do just that. 

The PET BASIC programs start to occupy memoty at location 1025 
decimal or S0401 hex. For the VIC, programs will start at 4097 decimal 
or $1001 hex. To make things compatible, start by putting a one line 
program into your PET (example: 1 REM). Now load your VIC program 
by typing "load". The VIC program will load just fine, but will have a 
starting location of $ 1 001 hex and if you do a LIST, it won't show up at 
all. You will see only your one line program, 1 REM. 

To get to the VIC program, you will need to change the forward 
linking pointers. This can be accomplished by doing a SYS 54386 (to get 
into the machine language monitor) and then by changing two 
memoty locations. 

First look at memoty locations $0400 to $0407, by typing: 

M 0400,0407 

The PET will display the following: 
.M 0400,0407 

.: 0400 00 07 04 01 00 8F 00 00 

Next list memoty $ 1 000 to $ 1 007 and see: 
.M 1000,1007 

.: 1000 AA 18 10 OA 00 99 22 56 
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This display will vary depending on the first line of your VIC 
program. My first line was 10 PRINT "VIC-20". 

Now you can change the "07" and the "04" at locations $0401 
and $0402. You want this to point to the location of the first forward 
pointer of the VIC program, so the "07" becomes "01 " and the "04" is 
changed to "10". IVlake the changes, press RETURN, and cursor down 
to the last line displayed, type "x", and then press return again. When 
the PET gives the "READY", you are back in BASIC and can do a LIST. 
What appears is the one line, 1 REM, followed by the VIC program. 

Having served its purpose, line one can now be removed, and the 
VIC program will be copied into the normal start of PET BASIC at 
location 1025 decimal or $0401 hex. 

If you have The BASIC Programmer's Toolkit from Palo Alto IC's, 
this entire procedure can be replaced by simply activating the Toolkit, 
and typing "APPEND". 

I will have a lot of use for both of these procedures. Some that 
come to mind immediately are such things as getting a VIC program 
listing on a PET printer, renumbering a VIC program, and compacting a 
program so as to make the best possible use of the VIC's 3.5K of 
memory. I hope that this simple procedure will prove useful to others. 
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User Input 

WAYNE KOZUN 

This tutorial on iceyboard input takes you from INPUT 
to PEEK. Following the tips here, you can maximize the 
potential of VIC's full stroke keyboard. 

There are three main ways to accept input from the l<eyboard during 
the running of a program. The two more popular methods are the 
INPUT and GET commands. The final and least popular method is to 
PEEK location 1 97 or 20 1. 

INPUT 

The INPUT is the easiest way to receive data from the user, and 
therefore the most popular. It assigns the characters entered to the 
given variable. To signal that you have finished entering, you must 
press RETURN, and the program resumes its execution. 

Basically two different types of variables are used here. Floating 
point variables (such as Xj are used to input numbers. String variables 
(such as X$) are used to input all kinds of characters. String variables 
are denoted by a letter followed by a dollar sign. Try this program to 
see the INPUT command in its easiest form. 



10 


PRINT" 


'ENTER A NUMBER 


20 


INPUT 


A 


30 


PRINT 


"ENTER A WORD" 


40 


INPUT 


A$ 


50 


PRINT 


A,A$ 


60 


END 





The above program shows how to use the INPUT command 
with both string and floating point numeric variables. The two 
variables are entered in lines 20 and 40. The program halts when it 
comes to an INPUT, and it doesn't continue until RETURN is pressed. 
Whenever you use an INPUT, always ask specifically for what you 
want. The worst thing for an inexperienced computer user is to see a 
question mark, and no instructions. The following program does the 
same thing as the previous program, but in a more efficient way. 

10 INPUT"ENTER A NUMBER"; A 
20 INPUT" ENTER A WORD";A$ 
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30 PRINT A,A$ 
40 END 

This is the best method for using INPUT, and it is fairly standar- 
dized. It will work with most BASIC languages (except Atari BASIC) 
without modification. You should use INPUT whenever you expect 
more than one character to be entered at a time. One drawback to 
this method is that it stops the execution of the program. This is not 
always desired. Also, sometimes you'll want to limit the time the 
user has to enter data. In these last two examples a GET command 
would be more useful. 

GET 

The GET command is also very popular, but it allows only one 
character to be entered at a time. An advantage of GET over INPUT 
is that the RETURN key need not be pressed. The GET command 
extracts the first character from the keyboard buffer. This buffer is 
where the ASCII value (a numbered character code) of a character 
goes after its key has been pressed. This buffer becomes more 
important when we start to talk about the PEEK statement. The GET 
takes only one character at a time, which can be good or bad, 
depending on the situation. This command will work with numeric 
variables, but I recommend using string variables at all times. When 
you are using GET and asking for numbers, but get letters, then ? 
REDO FROM START will appear on the screen. The GET is quite a bit 
more complicated than the INPUT and takes some getting used to. 
This program should help you understand how to use it. 

10 PRINT" HIT ANY KEY" 
20 GET A$ 

30 IF A$="" THEN 20 
4 PRINT A$ 
50 END 

This small program GETs a character from the keyboard and 
prints it to the screen. Line 20 is where the actual GETting is done. 
Line 30 prevents the program from going further if no key is pressed. 
If the program user does not press a key, then AS would equal "" - 
called a null string. If a key is pressed, the program goes on. The 
purpose of line 30 is to stop and wait for some kind of character to 
be entered. If you don't want to stop the program, then line 30 
would be left ouL This allows other action to take place while the 
user provides some data. Another use of the GET is to let someone 
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go through a program at his or her own pace. This statement is 
often used at the bottom of a screen of instructions, it allows you to 
read them, and then move on to the next screen. 

The PEEK Method 

The final method has not been widely documented. It involves 
PEEKing at either location 1 97 or location 20 1 . These are addresses 
which return a numeric value for the key which is currently being 
pressed. The method is quite simple. After typing in and running this 
program, hit various keys and see their effect. 

10 PRINT" {CLEAR}" 

2 PRINT" {HOME} "; PEEK (197) 

30 GOTO 20 

This is an input method which is used in many games. You may 
wonder what these numbers are. There is a special code for these 
PEEKS which is different from both the ASCII code and the POKE 
code. Each key is assigned a certain value which is the same whether 
it is shifted or not. The value for all keys up is 64. Table 1 shows the 
code for each separate unshifted character. Using one of these two 
PEEKS is the most effective way to control game animation from the 
keyboard. It's better than the GET for these purposes because it tells 
you what is currently pressed, not what was pressed. This method 
does not extract characters from the keyboard buffer. This could 
cause problems if you have a GET or INPUT following one of these 
PEEKS. The characters pressed for the PEEK were entered into the 
keyboard buffer, but weren't used. When you do come to a GET or 
INPUT, the keyboard buffer will empty. This will cause the program 
to go right through a GET, or to empty unused characters at an 
INPUT. 

Table 1 . VIC Character Code for PEEK(197) 





8 


A 


17 


1 





S 


41 


2 


56 


D 


18 


3 


1 


F 


42 


4 


57 


G 


19 


5 


2 


H 


43 


6 


58 


J 


20 


7 


3 


K 


44 


8 


59 


L 


21 


9 


4 


• 


45 





60 


• 

i 


22 
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+ 


5 


= 


- 


61 


RETURN 


£ 


6 


Z 


HOME 


62 


X 


DEL 


7 


C 


Q 


48 


V 


W 


9 


B 


E 


49 


N 


R 


10 


M 


T 


50 


f 


Y 


11 


• 


U 


51 


/ 


I 


12 


CRSR DOWN 





52 


CRSR RIGHT 


P 


13 


fl 


@ 


53 


f3 


* 


14 


f5 




54 


f7 






SPACE 
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Amortize 

AMIHAI GLAZER 

This program demonstrates an extraordinary metliod 
of getting numbers from the user. You can enter ex- 
pressions such as 3 + 2 as well as the simple number 5. 

You're planning to buy a new house. Or perhaps a new car. But 
money is short and you must take out a loan. What is the monthly 
payment on the loan? What is the total interest charge? How much 
interest can you deduct from your income tax in the first year? 
Answers to these and other questions are provided by the program 
"Amortize." As an added bonus, the program incorporates some 
techniques you may want to use in your own programs. 

Key in the program. On line 63993, simultaneously press the 
SHIFT key and the letter "O" key; this is an abbreviation for GOTO. 
On line 63992 the PRINT statement consists of a quote mark, a blank 
space, pressing the CTRL and the "2" keys simultaneously, and 
finally a quote mark. On line 63996, to enter the PRINT statement 
type a quote mark, then press the CTRL and the "7" keys simultane- 
ously, then press the space bar seven times, and then close with 
a quote. 

Once the program is in memory, type RUN and you will be 
prompted for the input. Notice that you can type as input not only 
numbers, but expressions as well. For example, suppose we let the 
loan be for ten years, so that for the number of months we enter 1 0* 
1 2; we let the interest rate be 1 3 + 3/8, and the amount of the loan 
(the principal) is $50,000. Your friendly \/IC-20 will respond by 
showing that the monthly payment on the loan (PMT) is $757.65. 
You will then learn that after your third payment (MONTH = 3) you 
still owe $49392.20, that you have paid a total of $1665.15 interest 
over these three months, and that $552.80 out of your third payment 
went to pay interest. 

Look at the results for the last month, month 120. You will find 
that the total interest paid on the loan is $40918.87. (Yes, that sure is 
a lot of interest.) Don't let the small amount of principal remaining, 
87 cents, bother you; such inaccuracies are inevitable when you 
can't make monthly payments including a fraction of a cenL One 
final caveat: some consumer lenders use the Rule of 78s to determine 
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the reduction in principal eacli month. Therefore, the results the 
program gives you for any but the last month may be slightly different 
from what the bank may tell you. But the program will still give you 
the correct value for the monthly payment, and the correct value for 
the total interest charge. 

The INPUT Technique 

That's it for you folks who want to use the program without worrying 
about how it works. As mentioned, the user's input can be in the 
form of an expression, not merely a number (which is what the 
INPUT statement allows). Here's how this is done. Suppose we want 
to get a value for variable N. In statement 50, the computer printed 
out the characters "N = ". The user types in any expression, say 
1 0* 1 2. Lines 63990 and 6399 1 accept the characters for this expression 
and print it out. The screen will now show N = 1 0* 1 2. (The POKEs 
into locations 204 and 207 allow the cursor to be shown when the 
GET is invoked.) We then switch (in statement 63992) to printing 
in white so the user will not be confused by the tricks we are about 
to play. 

In statement 63993 the computer prints G r63996. In statements 

63994 and 63995 we POKE (into the keyboard buffer) instructions to 
go up to the screen line which says N = 1 0* 1 2, to execute that line, 
to go to the screen line which says G r63996, and to execute that 
line. These instructions are executed when the END in statement 

63995 is encountered. 

Having executed the instruction on the screen to GOTO 63996, 
the computer is now executing that statement. The computer 
switches back to printing in blue, erases from the screen all the 
garbage which it had printed in its machinations, and returns to the 
calling program. 

The subroutine which starts in statement 63990 can be used in 
any program you wish. The calling sequence is exactly as shown in 
statement 50. 

There is another useful technique in lines 132-136. These 
instructions allow the user to stop execution by pressing any key, 
and to continue execution by pressing that or any other key; the 
instructions transform the keyboard into a toggle switch. The logic is 
simple: if no key is pressed when line 132 is encountered, the 
program does not stop. If any key is pressed, the program waits until 
all keys are released, and then waits until a key is pressed. Execution 
then continues. 
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1 REM AMORTIZE — BY 

2 REM AMIHAI GLAZER 

3 REM UNIV. OF CALIF. 

4 REM IRVINE, CA. 92717 

5 DEF FNR(X)=INT(100* X+.5)/100 
10 PRINT "{CLEAR} {REV}AMORTIZE" 

20 PRINT "{03 DOWN}" 

30 PRINT "NO. OF PERIODS" 

40 PRINT " (IN MONTHS) " 

50 PRINT "N= ";:GOSUB 63990 

60 PRINT "ANNUAL % INTEREST RATE" 

70 PRINT "AR=";:GOSUB 63990 

80 MR=AR/1200 

90 PRINT "PRINCIPAL" 

95 PRINT "P=";: GOSUB 63990 

100 PMT=(P*MR)/(1-(1+ MR)"(-N)) 
105 PMT =FNR(PMT) 

110 PRINT "{02 DOWN}PMT=", FNR(PMT) 

111 PRINT "{DOWN}PRESS RETURN KEY" 

112 PRINT "TO CONTINUE OR STOP" 

113 GETA$:IF A$="" THEN 113 
120 PRINT "{02 DOWN}" 

130 FOR 1=1 TO N 

132 GET A$:IF A$="" THEN GOTO 140 

134 GET A$: IF A$<>"" THEN GOTO 134 

136 GET A$:IF A$="" THEN GOTO 136 

140 RDUE =FNR(P*MR) 

150 CUMR=FNR(CUMR+RDUE 

160 P=P-PMT+RDUE 

170 PRINT "{REV}MONTH="; I 

180 PRINT " PRINCIPAL =";FNR(P) 

190 PRINT " TOTAL INT.="; (CUMR) 

200 PRINT " INT. DUE =" ; (RDUE) 

210 NEXT I 

220 END 

63990 POKE 204,0:POKE 207,0:GET A$ 

63991 IF A$<>CHR$(13) THEN PRINT A$;:GOTO 639 
90 

6 3992 PRINT " {WHT}" 

63993 PRINT "G063996" 

63994 POKE 631,145: POKE632 , 145 :POKE633 , 14 
5:POKE634,145:POKE 635,13 

63995 POKE 636,145: POKE637 , 145 : POKE638 , 13 
:POKE198,8:END 

63996 PRINT*'{02 UP}":FOR ZZ =1T03:PRINT" {BLU} 

" :NEXT:PRINT"{03 UP}" 

63997 RETURN 
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Append 

WAYNE KOZUN 



An Append routine combines two programs togetfier. 
With VIC'S "relocating loader" it's easy, and this program 
makes it automatic. 
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Sooner or later you'll probably have two or more programs you want ^ 
to combine into one. I often use the same subroutine in many of my Q 
programs. All the games I have made use joysticks as controllers. 
Rather than type in the subroutine each time, this program permits 
you t o.aPDend t ^f fhrni \rinpnn^n |h p main program. I 've seen a 
number of append programs for the PET, but I've yet to see one for 
the VIC. I was in need of such a program so I decided to write one. ^ 

To my surprise the program was incredibly easy, although it Q 
appears complicated. This simplicity is due to the "relocater" in the 
VIC. This feature loads a program into the start of BASIC (addresses ^ 
43-44), wherever that may be, regardless of the saving locations Q 
written in the header of the program. Since the PET doesn't have this 
feature, an append is much more complex. ^ 

There is nn limit r nihenumber of programs which can be 
append ed except, o f course, that they must fit in the VIC's memory . I 
believe an append will work with any amount of memory, though *^ 
I've tried it only on my 5K VIC. This program was written with tape in Q 
mind, but I see no reason why it shouldn't work with a disk drive. 
This article was written for someone with a fair amount of knowledge ^ 
about the dynamic keyboard, etc., and it helps if you know a bit of 
machine language. 

The Inner Mechanism 

What makes this program tick is the dynamic keyboard feature of the ^ 
VIC, when you print to the screen a program line, or a direct statement, Q 
and then force a RETURN over it. This works just as if you had typed 
in the line and pressed RETURN. Addresses 63 1 -640 contain the 
keyboard buffer. It is here that RETURNS, having a value of 1 3, are 
POKEd. Location 198 is the number of characters in the keyboard 
buffer, and this must be POKEd with the number of RETURNS we ^ 
put in the keyboard buffer. 

When the program reaches the END statement, it returns 
control to the keyboard. The computer then checks to see if there is ^ 
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anything in the keyboard buffer (location 198). If there is, it is spilled 
on the screen, where it goes over the LOAD and the POKEs. Here 
again, the VIC has an advantage over the PET. The LOAD and the 
POKES are invisible to the user, giving the program a neater appear- 
ance. This invisibility is achieved by printing these direct commands 
in the same color as the screen background, white. 

The computer recognizes only numbers. All program lines are 
converted into numbers and are stored this way. The end of the 
program is denoted by two consecutive bytes of zero, after the last 
program line in memory. After printing the direct commands to the 
screen, the computer subtracts two from the pointers to the end of 
program (addresses 45-46) and puts this value into the pointer to the 
start of BASIC (addresses 43-44). The computer then ENDs, dumping 
the keyboard buffer, which causes the LOAD. The next program 
automatically loads iust on top of the previous program, thanks to 
locations 43-44. These two pointers are then reset to their original 
values when the load has been completed. This process is repeated 
for each of the programs which are to be appended. 

Making An Append 

.The fir<;t rhinn m dn iv nf rnurse type in the program. Then proofread 
it. Certain errors could send your VIC into the la£d of evermore. 
When you're reasonably certain that it's correct, you should save it. 
After doing all this, ypu're finally ready to yun the proqrarn . Put the 
tape with the mai q-program into the recorder, and RUN. Repeat this 
process with the rest of the programs to be merged. When you are 
finished with all the program ^ delete the APPEND program. The 
next thing to do is to check if there are any* eommon line number^ . If 
so, then one of rhp^^nmmnn niimbpr-; mn^c hp rhanqp(;i, Otherwise, 
on GOTOs and GOSUBs the execution would go to the first line, 
and your program would not work properly. The next step would be 
to write a program which could renumber as well as append, 
perhaps using the renumbering routine elsewhere in this book. 

This is not the greatest append program, but it is one of the 
shortest I've seen and it serves its purpose. If you have any im- 
provements or find any bugs (a so-called APPENDicitis), then please 
write me. 

Wayne Kozun 
861 BookRd. East 
Ancaster, Ontario 
Canada L9G-3L1 
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1 POKE 36879, 27:A=PEEK(44) - 

2 PRINT" {WHT} {CLEAR} {03 DOWN}LOAD{10 DOWN}{0 

3 LEFT} POKE 43,1: POKE 44 , " ; A; " { HOME} { 
BLU}":FORI=631T0636:POKEI,13:NEXT X 

3 POKE198,6 

4 IF PEEK(45)<2 THEN POKE 43 , PEEK (45) -2+255 : Qj 

POKE 44,PEEK(46)-l^jNp) 

5 POKE 43,PEEK(45)-2:POKE 44 , PEEK (46) : END 
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Printing Tlie Screen 

C D. LANE 

This program will produce an exact copy of tlie VIC 
screen on a VIC 1515 printer. Using dot graphics, it can 
even reproduce custom characters. 

This program prints wliatever is on the VIC's screen onto the VIC 
1515 printer. Unlike the routine supplied in the printer manual, this 
one gives you an exact bit by bit printing of the screen. It is very 
general and can be modified for other printers. Due to its generality, 
it is very slow, but the results are worth the wait. 

The ViC Printer 

The VIC printer uses characters that consist o f seven rows of five 
dots^ ln graphic mode, the printer allows the user to make characters 
with seven row s of six dots. If you look closely at the printer's repre- 
sentation of the PETA/IC graphic characters, you will see that they do 
not match exactly what you saw on the screen. The reason is that 
the screen characters consist of eight rows of eight dots, and the 
printer characters are scaled down to fewer dots. One obvious 
example is the four by four checkerboard character which comes out 
three by three on the printer. 

Another problem with using a routine that just prints the 
characters by character code is that the printer puts spaces between 
lines that do not exist on the screen, so your drawing will be elongated 
and striped with white lines. The printer also has to be told which 
character set you wish to use, despite what is on the screen. Fortu- 
nately, the following program solves all of these problems and also 
allows the printing of user-defined characters. 

The program overlays a seven-row by six-dot mask over the 
eight-row by eight-dot characters, picking up where it left off each 
time so no bits are missed. At any given time, the character being 
printed may be part of one row of characters on the screen and part 
of another. A character printed by the printer no longer corresponds 
to a character on the screen, but rather to an area being examined. 
The program does calculations for each bit on the screen. 

Before printing, the program determines where the screen is in 
memory. It then sets a flag if user-defined characters are being used. 
Next it determines where the character set resides in memory. The 
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program loops over all of the bits on the screen. It determines the 
character code on the screen for each bit. It then looks up that 
character code in the character set determined earlier. If the high 
order bit of the character code is on (reversed character) and the user . 
has defined his own character set, then the normal graphic character 
set is used for that character, just as the VIC does when printing to 
the screen. 

Bits are collected in this manner until there are enough to send 
to the printer as a graphic character (42 dots). Then the next group is 
gathered and so forth. In general, when printing characters, the 
program tries to use the same rules as the VIC does when printing 
them on the screen. Anything you can create on the screen, the 
program should be able to print, in the eight by eight or 16 by eight 
. character formats. 

Using The Program 

To use the program, you can make a subroutine in your own program, 
numbering the lines any way you wish since there are no GOTOs in 
the code. I have found it simpler to load an existing game, and 
somewhere in its code have it load and run the printing program 
from tape. For example, once you have the screen set up: 

1000 GETA$:IFA$=""GOTO1000 :REM START TAPE RUNN 

ING THEN PUSH A KEY 
1010 LOAD :REM THIS WILL LOAD AND RUN WITHOUT D 

ISTURBING THE SCREEN 

You will notice the program has been compacted into very few 
lines when it does not need to be. This was done for two reasons: 
first, to make it faster; and second, to make sure that it was not larger 
than the program it was replacing in memory , which causes prob- 
lems. You may wish to spread it out if you need to modify it. Also 
note that you can fit only 60 of the screen characters on one line of 
the paper, where normally you can fit 80 printer characters. 



VIC 1515 Printer Cliaracter Set. 
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VIC 20 Character Set as printed by the program. 

?Z§§ixSsi?^fi^SS?^GHIJK 6789: ;<->?<2a^ode?ghiJk 



Graphic 



Text 



Sample run of program with VIC in 16 by 8 dot 
character mode. 



6789:.(=)?§ABCDEF(3HIJK 
LMN0P«!RSTUVWHyZ[£]tH4 

If 



Graphic 
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a: 




SCORE: 



TIME:003 
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CHANCES LEFT: 4 




«♦■-- *«» ♦ 



* ** M 
4 



1 HIGH=23 :WIDE=22 :R0M=2'M5 : ADR=36869 : 0PEN4 , 4 

:PRINT#4,CHR$ (8) 

2 SIZE=( (PEEK(36867)AND1)+1)*8:SC=PEEK(648)* 

256:UC=PEEK (ADR) /8AND1 

3 CH=(1-UC) *ROM+ (PEEK (ADR) AND7) *1024 : LIM=INT 

( (5+WIDE*8)/6) *6 

4 PORL=0TOHIGH*SIZE-1STEP7:FORC=0TOLIM:A=0:X 

%=C/8:BIT=2't(7-C+X%*8) : F0RR=LT0R+6 

5 Y%=R/SIZE:CC=PEEK(SC+X%+Y%*WIDE) :MEM=CH:IF 

UCTHENIFCC>127THENMEM=ROM:CC=CC-128 

6 IFR<HIGH*8THENIFPEEK (CC*SIZE+MEM+R-Y%*SIZE 

) ANDBITTHENA=A+21^ (R-L) 

7 NEXTR:PRINT#4,CHR$(128-(C<WIDE*8)*A) ; :NEXT 

C : PRINT# 4 : NEXTL : CL0SE4 : END 
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The Confusing 
Quote 

CHARLES BRANNON 
What to do with the perplexing quote character. 



As you type in a program, you will eventually come to a place where 
information is in quotes. This tells the computer to "take this exactly 
as shown," instead of interpreting it. For example, the instruction 
PRINT "PRINT" causes the word PRINT to be displayed on the screen. 
The PRINT in quotes is entirely different from the command PRINT. 
What, however, do you do when you're typing in a line like: 

1 INPUT "WHAT IS YOUR IMAME";N S 

and you make a mistake at the beginning of the line? You just 
cursor-left to the error, and correct it. Right? Nope. What you get are 
a bunch of reverse-field vertical lines. These are control characters, 
but that explanation doesn't help you retype that error. 

When you typed that first quote you entered the twilight zone 
of quote mode, which is both one of the most frustrating and most 
useful features of the VIC. The trick is that cursor keys are not only for 
use in screen editing, but can also be programmed. When the VIC 
comes to one of those reverse-field vertical lines, it will attempt to 
actually move the cursor left one space. This can be used to produce 
animation. When a character is printed on the screen, the cursor 
moves to the right one space, just as on a typewriter. If, however, 
you move it back with a programmed cursor-left, you can replace 
the old character with a new one. Try this line: 

1 FOR I = I TO 20:PRINT" •H"; .-NEXT I 

Other cursor controls can be programmed as well. The most 
commonly-used one is the clear-screen character. This is at the start 
of most programs, and it appears as a reverse-field heart. Actually, all 
control characters on the VIC are in reverse-field. Cursor-down (Q) 
can be used to skip down to any line quickly, without having to print 
a blank line. Hence the line: 

10 PRINT:PRINT:PRIIMT:PRIIMT 
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can be replaced by 

10 PRINr'QQQQ"; Q 

Used in conjunction with the HOME character, cursor down can act ^ 
like a "vertical TAB statement." At the start of your program, define 
CDS (or any string, really) to be equal to HOME and 2 1 cursor-downs. ^ 
Now you can place the cursor on any line with PRINT LEFTS (CDS,L), 
where L is the screen line, from one to 22. Reverse field on and off 
are also easy to use; just insert the appropriate characters before and ^ 
after the text you want highlighted. The color control keys are used ^ 
similarly, except that while reverse-field is cancelled by a carriage- 
return, the color command remains in effect until changed. Has your W 
display ever disappeared? Don't despair, you probably changed the ^ 
text color to white (CpNTROL2), and if the background was white, 
everything would disappear. Just type CTRL some other color to 
regain it, or reset with STOP/RESTORE. ^ 

Okay, now you're using control characters to do amazing 
things, but you may be experiencing another problem - you can't ^ 
make the VIC print them. The problem here is that you are not in ^ 
quote mode. Here is exactly how quote mode works: 

1 . If you type an odd number of quotes, you are in quote-mode - ^ 
all cursor controls (except DELete) will show up for better 
or worse. 

2. An even number of quotes, two or four, or none at all, keeps you 
in the edit mode, where you can move the cursor anywhere O 
and type. 

3. A special way to get into quote mode is with the INST key. When 
you insert a gap in text, you are temporarily in quote mode. If ^ 
you type any control key, it will be printed. This is useful for . j 
placing cursor controls inside an already-typed line. 

Finally, if you are going crazy trying to figure out what those ^ 
quotes are doing to your line, just type SHIFTED RETURN to escape 
to the next line. SHIFTED RETURN does not act like an ENTER key. It 
just moves to the next line, and cancels reverse field and quote ^ 
mode. You can then cursor up to the mangled line and fix it. 

Remember, one of the VIC's strengths is its ability to manipulate 
the cursor, colors, and even select upper/lower or uppercase/graphics. ^ 
Don't neglect this feature. And you can quote me on that. 
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Alternate Screens 

JIM BUTTERFIELD 

One of the more exciting things about the VIC is the 
control you can exercise over the screen, and there are 
many ways to do it. 

The screen itself doesn't move, of course. It stays wherever you have 
plunked your TV set or monitor. What we are doing is changing the 
location from which the screen gets its information. 

The Screening Process 

The information that appears on the screen is taken from the memory 
of the VIC. Each character on the screen corresponds to a value 
stored in memory. Each screen location is linked to a specific memory 
location. Here's the trick we are after: we plan to change the links so 
that each screen location is fed from a different memory cell. 

If we can do this successfully, we'll be able to store two com- 
pletely separate "screens" in memory. We can then switch the 
display back and forth between these two screens so as to create 
special effects or a useful "dual" display. 

There is a location in VIC's memory which controls where the 
screen display is linked to memory. We can easily switch the contents 
of that location, which would cause the screen to flip to the new 
display. But that's not enough. 

Woricing On The Screen 

We must also change the working pointers in the VIC - the ones 
that put new characters on the screen. It might not help us much if 
we switched the display to a new location but kept on typing 
characters into the old one. 

Another small job that we will need to do: we must set aside 
the extra memory we need for the second screen. This will reduce 
our paltry 3500-odd bytes to less than 3000, but it's a necessary 
sacrifice. After all, we don't want BASIC messing around in this 
screen area and, unless we say otherwise, BASIC will use as much 
memory as it can find. 

The First Step 

Try typing PRINT PEEK(56) and pressing RETURN. You should 
see a value of 30 printed. Any other value means that your VIC 
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doesn't have the normal 5K of memory, and the rest of this procedure 
won't work. 

The value of 30 tells us the address of the "page" where BASIC 
stops. A pa.ge is a chunk of 256 bytes. We're going to take away two 
more pages in order to free enough bytes for the second screen. 

Type POKE 56,28:CLR and press RETURN. Now we've stolen 
away 500-odd bytes from BASIC. If you don't believe it, type PRINT 
FRE(O) and see. Don't worry too much about the loss. Everything 
will restore to its normal state when you turn the power off; we're 
just making a temporary change. 

Flipping Over 

You'll need to type four crowded lines. Excuse the congestion; if I 
put neat spacing in we couldn't get it all to fit, and then we'd end 
up stuck halfway between screens. Type the following as a single 
block without pressing RETURN: 

POKE36866,22:POKE648,28: 
FORJ=217T0228:POKEJ,156: 
NEXT:FORJ=229TO240: 
POKEJ,157:NEXT 

Proofread it carefully; one mistake and you'll have to power down 
and do it all again. When you're sure it's right, press RETURN. 

Bingol You're into the other screen. It looks like a mess, for this 
screen area was never cleared. Clear the screen and type your name 
and perhaps one or two other messages; you might like to change 
the color of the characters. Now to prove that we really have two 
screens, we're going back home. 

Type in the following, again as a single block: 

POKE36866,150:POKE648,30: 
F0RJ=217T0228 : POKEJ , 158 : 
NEXT:FORJ=229TO250; 
POKEJ, 159:NEXT 

Proofread, press RETURN, and you're back in the first screen. 
Piclcy Stuff 

The first annoyance thatyou'll notice is that, right after you switch 
screens, the VIC prints READY, probably right in the middle of the 
new screen. This isn't much of a problem; when you write the 
above statements as a program they will execute without the READY 
being printed. Another advantage of writing this into a program is 
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that you don't have to crowd everything into a single line. 

The second problem is less visible to begin with, but more 
serious. Ail the linked lines have been broken apart; instead of one 
four-row line with our massive POKE sequence on it, we'll have four 
individual lines. This may not matter on some kinds of display, and 
might even be nice if we wanted that effect. But we often want to 
keep the screen exactly as it was when we left it. 

The trick is in locations 21 7 to 240: to restore the screen, we 
must restore these values exactly as they were. That will-take a little 
extra coding. 

A Program 

Here's a little program to do all the above jobs. We'll use the VIC's 
Fl key to switch between screens. 

100 REMDUAL SCREEN JIM BUTTERFIELD 
110 POKE56,28:CLR 
120 DIML%(23) 

130 GOSUB400:PRINTCHR$ (147) :GOSUB400 

140 Z$=CHR$(133) 

200 GETX$:IFX$=Z$THENGOSUB400 

210 PRINTX$; :GOTO200 

4 00 REM SWITCH 

410 S=PEEK(648) 

420 IFS=28THENS=30:T=150:GOTO500 
430 IFS=30THENS=28:T=22:GOTO500 
440 STOP: REMARK: ERROR 
500 POKE648,S:POKE36866,T 

510 FORJ=0TO23 

520 V=PEEK(J+217) : POKEJ+217 , L% (J) : 

530 L%(J)=V 

540 NEXTJ 

550 PRINTiRETURN 

Further Thought 

It works. Can you have three, four, or five screens? There seems to 
be no reason why not. Unfortunately, you'd need to compromise to 
make it work; there are only two screen color tables. We haven't 
even talked about these - they took care of themselves in our 
example. 

If we omitted the PRINT statement from line 550, we'd find 
another oddity: the VIC doesn't really switch screens until a line is 
complete. It doesn't look for a new location to put characters until 
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RETURN or some other event signals the end of a line. We've taken 
the simple way out here; more elaborate coding would be needed 
to reinstate the screen in mid-line. 

Let's leave this exercise at its present stage of development. It's 
useful as it stands; it doesn't gobble up too much memory; and it's 
fairly simple. 

For those who need to know mechanisms: 36866 is the location 
that actually switches the display. 648 tells the VIC where to find the 
whole screen. The values at 21 7 to 240 do two jobs. First, they tell 
the VIC roughly where the screen line rows have been linked 
together to form a long line. I call this series of values "the screen 
wrap table," but the name is less important than an understanding 
of what it does. The color control locations are at a high location - 
above 30000 - and, happily, we don't need to deal with them here. 
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Timekeeping 

KEITH SCHLEIFFER 

How to use VIC'S timekeeping functions, Ti and Ti $, to 
simulate a clock or to create controlled delays during a 
program RUN. 

The friendly computer guide that comes in the box with your \/IC-20 
mentions several interesting features that the casual reader can 
easily miss. In my most recent rereading, I discovered the timekeeping 
feature of the VIC. The computer can keep real clock time, count 
elapsed time, or time controlled pauses during program execution. 

The clock is available as the reserved variables TI and Tl$. TI 
actually counts time passing. Tl$ is a string variable, which depicts 
this time count in HHMMSS format (hours, minutes, and seconds, 
without any punctuation) on a 24-hour clock. 

How does the VIC do this timekeeping? When the computer is 
first turned on, the timekeeper initializes at 000000 (midnight). You 
can then set it to act as a clock by assigning to TI $ a string representing 
the correct time. For instance, if I initialize the timekeeper as a clock 
at 1 :29:30 in the afternoon, 1 would enter the statement: 

Ti$ ="132930" 

The VIC would convert this to 48570 seconds after midnight, multiply 
by 60 and assign: 

Ti = 291 4200 

and continue counting from there. TI is counted in one-sixtieth 
second intervals; that is, when TI has increased by 60, one second 
has passed. The time count is kept in memory locations 160, 161, 
and 162. 

Once you have set the correct time, you can check it whenever 
you wish by entering: 

PRINT TIS 

and the VIC will display the time, again in HHMMSS format. I like to 
set TI $ to keep clock time, and check it occasionally, so my wife 
doesn't have to complain about getting less attention than the 
computer. The timekeeper can be used in programming to control 
operations at scheduled times during the day, such as periodic data- 
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collection from an experiment, or to control your lights in a household 
security program. 

To use the VIC to count elapsed time, you cannot start and stop 
the time counter. To get around this problem, you must run a 
second variable to count time in parallel with Tl, then stop counting 
with that second variable when the timed period is over. The 
following program uses the "hit any key" concept to start and 
stop timing: 

100 GETA$:IFA$=""THEN100 

110 TS=TI 

120 PRINT"TIMING" 

130 TC=TI:GETAS:IFA$=""THEN130 

140 TE=(INT( (TC-TS)/6+0.5))/10 

150 GOSUB400:PRINTT$ 

160 END 

400 REM CONVERTS SECONDS TO HH:MM:SS.S FORMAT 
410 HI=INT( ( (TE/60/60/24)- (INT(TE/60/60/24) ) ) * 
24) 

420 B1=STR$(H1) 

430 H$=MID$ (B$,2,2) :IFH1<10THENH$="0"+MID$ (8$, 
2,1) 

440 T3=TE-(H1*60*24) 

450 M1=INT( ( (T3/60/60)-(INT(T3/60/60) ) )*60) 
460 B$=STR$(M1) 

470 M$=MID$ (B$,2,2) :IFM1<10THENM$="0"+MID$ (B$, 
2,1) 

480 T2=T3-(M1*60) 

490 S1=INT( ( (T2/60)-(INT(TE/60) ) ) *60) 
500 B$=STR$(S1) 

510 S$=MID$ (B$,2,4) :IFS1<10THENS$="0"+MID$ (BS, 
2,3) 

520 T$=H$+":"+M$+'':"+S$: RETURN 

Line 140 converts TE to the elapsed time in seconds and rounds off 
to the nearest tenth. The subroutine starting at line 400 will convert 
this to "clock" display, complete with colons in HH:MM:SS.S format, 
down to tenths of seconds. A simpler approach would use Tl $ by 
assigning to it the elapsed time value and immediately printing it: 

140 TE=TC-TS 

150 TI=TE:PRINTTI$:END 

You won't want to use this method if you are using Tl as a real clock, 
or if you're relying on the timekeeper to track more than one period 
at once. 

You can use the timekeeper for the scoreboard in a game, 
either by displaying stopwatch time or Tl$, to show time passing, or 
by calculating time remaining and displaying a CQuntdown timer. 
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The following program is a version of the countdown timer. 

100 PL=5:REM PERIOD LENGTH 5 MINUTES 
110 PS=TI:REM PERIOD STARTS NOW 
120 PF=PS+PL*60:REM PERIOD FINISH TIME 
130 TR=PF-TI:REM TIME REMAINING 

140 GOSUB400 ' 
150 PRINT" {CLEAR} "T$ 
160 IFTKPFTHEN130 
170 END 

400 REM CONVERTS SECONDS TO MM:SS FORMAT 
440 T3=INT(TR/60+0.5) 

450 M1=INT( ( (T3/60/60)-(INT(T3/60/60) ) )*60) 
460 B$=STR$(M1) 

470 M$=MID$ (B$,2,2) :IFM1<10THENM$="0"+MID$ (B$, 
2,1) 

480 T2=T3-(M1*60) 

490 S1=INT( ( (T2/60)-(INT(TE/60) ) ) *60) 
500 B$=STR$(S1) 

510 S$=MID$ (B$,2,2) :IFS1<10THENS$="0"+MID$ (B$ , 
2,1) 

520 T$=M$+":"+S$: RETURN 

The most valuable feature of the timekeeper is the ability to 
control the length of pauses made during execution, independent of 
the program lines being executed. The friendly computer guide 
shows how to make delays by using a FOR ... NEXT loop with the 
statements: 

FOR 1=1 TO 100:NEXT I 

The major problem with this method is that it ties up the whole 
program while you pause. You can insert program lines for execution 
during the loop, but then some guesswork and experimenting will 
be necessary every time you program to obtain the desired pause. 
Frequently you will have to compromise between the statements 
you want to execute and the time you can allot to the pause. Finally, 
if the lines executed during the pause contain the decisions with 
varying amounts of program to be executed based on the decision, 
the length of the pause becomes unpredictable. 

Getting Control Over Pause 

The timekeeper counts independently, on a steady basis, and allows 
you to assume control of the length of a pause, while permitting 
other parts of the program to continue. To do this you simply note 
the time the pause begins and add the desired pause length, giving 
the time the pause Will end. An IF decision watches for the clock to 
exceed that end time, and you can run other parts of the program 
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while the pause is in progress. The decision watching for the end of 
the pause must be made with a reasonable frequency, so the 
number of statements you can execute between repetitions of the 
end-time decision will depend on how long the pause is and how 
exact you want the measurement of the pause to be. 

As a very conservative rule-of-thumb, allow 20 80-character 
(multiple statement) program lines to reach the end-time decision at 
an interval of about ten percent of the total pause length. For 
example, if I pause for about ten seconds, I can allow up to one 
second, or about 20 program lines. Similarly, a two-second pause 
will allow up to four program lines between repetitions of the end- 
time decision. You can use a greater number of lines if they do not 
contain several statements each. 

These time estimates are very rough: do some experimenting 
yourself to find how many statements you can squeeze in and 
still get accurate control of the pause length. Once you have es- 
tablished some rules for yourself, they should be useful in all your 
programming. 

As an example of the pause, let's say that I'm writing a game 
program in which we explore a dungeon. If someone casts a magic 
spell of darkness, then I want to give no visual clues for the length of 
the spell - say 20 seconds - while the action of the program continues. 
The following segment of a program will provide that effect: 

100 DEF FN PS(T2)=TI+(T2*60) 

350 REM THE SPELL IS CAST 

360 GOSUB 900:P1=FN PS(20) 

370 REM P1=TIME TO END BLACKOUT 

380 REM THE 

390 REM PROGRAM 

400 REM CONTINUES 

410 REM RUNNING 

4 20 REM WITH A 

4 30 REM BLACK 

440 REM SCREEN 

490 REM (UP TO FORTY PROGRAM LINES) 

500 IF TI>P1 THEN GOSUB 902:GOTO 800 

780 GOTO 380 

800 END 

900 POKE 36879,8 :FOR 1=38400 TO 38906 

901 POKE I,0:NEXT I 

905 RETURN: REM BLACKOUT MAKER 

920 POKE 36879, 78 :RETURir:REM BLACKOUT LIFTER 

This application uses the function PS to relate the desired pause 
length (T2) to a future time value (PI ), which defines the end of the 
blackout. 
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Another application of the pause timer can limit how often I 
may perform an action. I'm writing a game in which the player fires 
a laser cannon that takes five seconds to recharge before it can be 
fired again. The line which times the firing interval looks like this: 

350 IF PEEK(197)=35 AND TI>P1 THEN GOSUB 800 :P1=TI+ (5*60) 
8 00 RETURN: REM VISUAL AND SOUND EFFECT FOR LASER FIRING 

Here there is no need to worry about running the end-time decision 
within a set interval - the next time I want to fire the cannon, the logi- 
cal AND in the decision checks to see if it has recharged. This pause 
method can also be used in an education program, to limit how soon 
the student may answer after a question appears, or may try a second 
time after an incorrect first answer has been entered. 

If you're interested in converting existing programs to timekeeper 
pauses, the statement; 

FOR 1=1 TO 100:NEXT I 

is worth about eight counts on the timekeeper, or 0. 1 3 seconds. There 
will be some difference between this statement and a longer loop. For 
instance, modifying the statement to: 

FOR 1=1 TO 1000:NEXT I 

This is worth 72 counts, or 1 .2 seconds, not the 80 counts one might 
expect. This is because of the "overhead" time needed to establish the 
loop during execution. There may even be differences between 
machines. You can check your own timing with this simple program: 

10 BT=TI 

20 FOR J=l TO 1000:NEXT J 

3 FT=T1 

4 ET=FT-BT 

50 PRINT ET,ET/60 

This displays the time passed in both counts and seconds. Try varying 
the length of the loop in line 20 to get a general idea of what the 
"overhead" time is on your computer. 

You need to do nothing to the timer to use it as a basis for pauses. 
However, if you have the VIC on for long periods, or if you set Tl$ to 
keep clock time and run the program neaf midnight, be careful: if the 
pause starts before midnight and ends after, you may never reach the 
end of the pause, since the clock resets to 000000 at midnight. You can 
put in additional statements to watch for this problem and compen- 
sate for it; you can have the program reset the clock to 000000 before 
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timing any pauses; or you can ignore the possibility and hope for the ^, 

best. The third option, technically unsound as it is, requires the least 

effort and presents no great threat. KJ 

These pause techniques have two important features: controlla- 
ble pause lengths and the ability to run other, unrelated parts of the 
program while the pause is in effect. When you develop a program, \^ 
you can select a length of pause that will not change as you add, 
change, remove, or relocate program statements. The pause can also 
be lengthened or shortened to suit your needs, without major w 
changes in the program itself. You have made your pause indepen- 
dent of the program that contains it. At the same time, you can execute 
lines of an unrelated portion of the program while the pause is in o' 
progress, making the program independent of the pause it executes. 
The timekeeper in the VIC gives the programmer much better control 
of realism in his game and simulation programs. ^ 
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Renumber 
BASIC Lines 
The Easy Way 

CHARLES H. GOULD 



This simple Renumber program can save you much time 
and grief. IMote, however, that you must manuaily 
change iine number references such as GOTO or 
GOSUB. 

Until we have a programmer's aid ROM available, such as the 
Toolkit, here is a simple way to renumber lines in that crowded 
program you are writing. Simply type in the lines given below, and: 
RUN 1 0000. Better still, put this program on a separate tape, load it 
whenever you start a new program development; when completed, 
erase these lines. The program uses only 198 bytes, so 95% of your 
RAM is still there. 

As shown, the renumbered lines start at line 10, and increment 
each line number by ten. But \t does not change GOTO or GOSUB 
line numbers. You must manually change these after renumbering, 
and before running. An easy way to keep track of the GOTO and 
GOSUB terminal addresses is to insert "REM line #" at the end of 
each such statement, renumber, correct GOTO and GOSUB refer- 
ences to the new line numbers, and erase the REMs. 

Une 9990 simply protects your program from entering the 
renumber routine until you want it to. In line 1 00 1 0, Y7 is the starting 
line number, and in line 1 0050, the Y7 = Y7 + 1 sets the increment. 
Either can be changed. Line 1 0020 tests to see if we have renumbered 
up to, but not including, line 9990. Line 1 0030 changes the line 
number. Une 10040 searches for the next line. Y6 is the normal start 
of BASIC text (-1). The BASIC text lines are stored in RAM memory in 
this way: the first and second (low and high) bytes are a link to the 
next line; the third and fourth bytes are the line number (see line 
10030 below); the BASIC statement is then given using tokens; the 
last byte of the line is a null (ASCII 0). After the last BASIC line, two 
more nulls are inserted to indicate end of program. 

So, until we get support utility ROMs, let's make do. 
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9990 END 

10000 REM RENUMBER 
10010 Y6=4096:Y7=10 

10020 IFPEEK (Y6+3) =6ANDPEEK (Y6+4 ) =39THENEND 
10030 Y8=INT(Y7/256) : Y9=Y7-256*Y8 : POKEY6+3 ,Y9 : PO 
KEY6+4,Y8 

10040 IFPEEK (Y6+5) <>0THENY6=Y6+1:GOTO10040 
10050 Y7=Y7+10:Y6=Y6+5:GOTO10020 



126 



CHAPTER THREE 



Automatic 
Line Numbers 

JIM WILCOX 

This program is in the tradition of the famous "dynamic 
iceyboard" technique of the PET. It can be used to malce 
programs self -modifying. Essentially it forces the 
machine to print something on screen and then RETURN 
over it — thereby entering a line or, in direct mode (no 
line number), causing an action. It can be modified to 
delete a set of program lines automatically. 

This program will allow a programmer to have automatic line 
numbers at any starting line number and with any increment. The 
screen will clear and will print "STARTING LINE #?". "A" will take on 
this value. The computer will then ask for the "INCREMENT?" and 
"B" will equal this value. The increment value will be POKEd into 
memory address two. The screen will clear again. The line number 
will be POKEd in zero and one. The computer will then print the line 
number. 

At line number 63996, the computer will print all the characters 
typed in and will stay at that line number until the "RETURN" key is 
pressed. 

The PRINT'Gn 63998" is shorthand for GOT063998. The "1 is 
the shift of an "O". The interrupt driven keyboard buffer starts at 63 1 , 
and I put in four cursor ups, then two RETURNS. Location 198 is the 
number of keys pressed. The program will then END. The computer 
will print READY along with the line number and statement and the 
"Gn 63998." Once it prints READY, the characters in the keyboard 
buffer will be honored. The four cursor ups will move the cursor up 
to the line number and statement. It will then execute a RETURN 
which will put the line number and statement into the program. To 
continue the program, the cursor RETURNS over the "Gn63998" 
and the program will GOT063998. 

At 63998, the computer will move the cursor up two lines and 
will print seven spaces to blank out the "G~163998" and "READY". 
The computer will then print up three lines and be just below the 
last statement. 
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Since the program was changed, the line number was cleared 
out of memory, so line 63999 sets the line number with the PEEKs 
and also adds the increment with the "PEEK(2)". The computer will 
go back to line 63995 where the new line number will be stored, 
and the new line number will be printed, ready for the programmer 
to type in the statement. 

I wrote this program to use the least amount of memory and to 
have line numbers out of the way of any program. Do not try to alter 
this program until after you've typed it in exactly as shown, to 
prevent errors. ^ 

63994 INPUT" {CLEAR} STARTING LINE #";A:INPUT 

" INCREMENT" ; B : P0KE2 , B : PRINT" {CLE ^ 
AR}"; ^ 

6 3995 B=A/256:POKE0, (B-INT(B) ) *256 :P0KE1 ,B: 
PRINTA; 

63996 GETA$:PRINTA$; :IFA$<>CHR$ (13)THEN6399 ^ 
6 

63997 PRINT"G063998":FORA=631T0634:POKEA,14 ^ 
5 :NEXT:POKEA,13:POKE636,13:POKEl <^ 
98,6:BND 

6 3998 PRINT" {02 UP} ": F0RA=1T03 : PRINT" ~ ^ 

": NEXT: PRINT" {03 UP}"; ^ 
6 3999 A=PEEK(0)+256*PEEK(1)+PEEK(2) :GOT0639 

95 ^ 
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Putting The Squeeze 
On Your VIC-20: 

Getting The Most 
Out Of 5000 Bytes 



STANLEY M. BERLIN 

There are times when you will write a program that is 
so large It will need every last memory cell in your 
computer. This article shows several ways to reduce the 
size of your programs. 

Five thousand of almost anything seems like a lot; a Christmas 
bonus of $5,000 would make anyone happy; 5,000 jelly beans 
would be more than even our President could eat; 5,000 days is over 
1 4 years. However, there are other circumstances when a quantity of 
5,000 really is not so much. Five thousand raindrops would probably 
go unnoticed. The time when 5,000 is a really small quantity is when 
you are writing a program and have only 5000 bytes (memory 
locations) in which to do the job! 

I remember working 20 years ago with a 4000-character IBM 
1 40 1 computer and feeling confident that if I had only another 25 
memory locations I would be able to complete the program. Times 
have changed during the last 20 years, and there are many program- 
mers who now work with virtual memofy systems [where the 
computer can use disk memory as if it were RAM - Ed.] where there 
is no such problem as being constrained by the amount of memory. 
With technology moving as fast as it is, persons working on small 
microcomputers probably will not have to wait 20 years for a virtual 
memory-like system. When that time arrives, people will not have to 
write articles like this one. However, today, if you are writing programs 
for the Commodore VIC-20, you will have to live with the con- 
straint of having only 5000 bytes worth of memory in which to do 
your work. 

Anyone who has done any serious programming for the \/IC-20 
knows that it does not take many BASIC statements before you get 
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that dreaded "OUT OF MEMORY" message. Of course, the VIC-20 is 
nice enough to let you know when you turn it on that by the time it 
gets through allocating 506 bytes for the video mapping, and 
another 506 bytes for color mapping on the screen, and reserves 
memory space for such other things as tape cassette buffers, you 
have only 3583 bytes of memory in which to store your program. 

So, there you are busily entering your new BASIC program and 
VIC sends you the "OUT OF MEMORY" message. What are your 
options? You can resign yourself to the fact that, no matter what you <J 
do, the program will never fit into memory and abandon your ^ 
project. Surely, no programmer worth his or her salt would exercise 
this option I Another option is to run out and purchase a memory ^ 
expansion unit. This is not too bad a solution except, at the time this 
is being written, there is no such item available. Even if there were, it 
would surely be a costly solution. The last option is to roll up your ^ 
sleeves and dig into your program with a finely honed scalpel to 
perform surgery on it. That is certainly the most challenging option, 
and it is the purpose of this article to pass on a fevy points to help ^ 
you in your efforts. ^ 

The items discussed will be from a BASIC programmer's point of 
view. Technical system information will be avoided except when it is o' 
necessary for a clear understanding of the issue. Although these 
suggestions are aimed at the V\C-20 owner and the \/IC-20 is the 
computer used to validate the data, much of the information is ^ 
pertinent to other computers using Microsoft BASIC. ^ 

One last point before moving to the meat of this article; many 
of the suggestions presented here are a tradeoff between good KJ 
program documentation and the amount of memory used. Remark 
(REM) statements liberally scattered throughout a program provide 
the roadmap when you are trying to debug a program. ^ 

At this time, most VIC-IO owners probably do not have the 
benefit of a printer, so there is no printed copy of the program on 
which to make comments regarding the various routines used in a ^ 
program. If you are going to do any serious programming, a printer 
makes the task much easier because you can follow the logic and 
flow of a program from beginning to end without having to enter 
multiple UST statements. A disk drive provides a lot of speed and 
flexibility when you are using a program, but a printer is worth its 
weight in gold when you are trying to debug a program. If it is o' 
necessary to remove REMark statements from a program in order to 
conserve memory space, it is worthwhile keeping some handwritten ^ 
notes concerning the program. At a minimum, you should write ^ 

U 
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down the BASIC line numbers of subroutines and major sections of 
the program so that you will at least have an idea of what area 
of the program to LIST when you want to look at or change an area 
of code. 

REMsAnd Blanks 

That brings us back to being confronted with the "OUT OF MEMORY" 
message and the first technique for buying back a few bytes of 
storage. REMark statements, as important as they are, require memory. 
They do not provide any function in your program. A REMark state- 
ment on a line by itself will require a minimum of six bytes, even if 
there is no text associated with the REMark. If the REMark contains 
textual information (as it usually does), add the length of the text to 
that six bytes. 

The quickest way to obtain memory is simply to remove the 
REMark statements. Remember to write down a notation about the 
REMark so that the information is at least externally presen/ed for 
documentation purposes. One word of caution: if your program 
contains GOTO or GOSUB statements whose object is a line number 
containing a REMark that you removed, you will receive an "UNDE- 
FINED STATEMENT" error message. Should you get an "UNDEFINED 
STATEMENT" error message, you will have to figure out where the 
REMark was removed and change the GOTO line number to be the 
line following the original REMark. This can be a long and tedious 
task if your program contains many statements that GOTO a REMark 
statement. Try to avoid this situation when you are originally writing 
your program by not coding GOTO or GOSUB statements which 
land on a line number containing a REMark. 

Another way to buy back a few bytes of memory at the expense 
of good "internal" documentation is to remove all unnecessary 
blanks from the program. This makes the program a bit harder to 
read, but every blank removed is a byte of usable memory. That does 
not seem to be much, but if you add up the number of unnecessary 
blank spaces in your program, you will be surprised; besides, no one 
ever said this was going to be easy! 

The \/IC-20 makes it easy to remove the blanks with the use of 
the INST/DEL key, but remember not to remove any blanks from 
within quotes. Data between quote marks are called strings and, if 
you are displaying them on a television or printer, you undoubtedly 
need those blanks. For example, if you are displaying the message 
"PRESS X TO EXIT" you would not want that information displayed 
as "PRESSXTOEXIT". 
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The following routine was entered on the VIC-20: 

NEW 

100 PRINT" {CLEAR}" 
200 A=2:B=3:C=4:D=5 

300 IF A=B AND C=D THEN D=D+1:G0T0 400 
400 PRINT "FREE=";FRE(X) 

The results of running this program showed that there were 
3465 bytes available; the program occupied 1 1 8 bytes (3583-3465 
= 118). By simply removing the 15 blanks in statement 300 it became 
less readable: 

300 IFA=BANDC=DTHEND=D+l!GOTO400 

but the results of that run showed 3480 bytes of free space, a 1 00% 
return for each blank removed. Finally, you might have observed that 

1 did not remove the blank that separates the line number from the 
statement. It does not really occupy any memory and is there only 
for readability; in fact, if you remove that blank, you will find that 
BASIC will reinsert it when you LIST the statement. 

Multiple Statements And Short Variable Names 

Closely allied with removing blanks and removing REMark statements 
is putting multiple statements on a line. Your VIC-20 can display only 
22 characters on a line, but BASIC will actually accept up to 80 
characters. It is possible to have your BASIC statements occupy about 
three and one-half display lines. It is also possible to combine 
statements on one BASIC line by using the colon separator character. 
Every line number in your program contains an overhead of five 
bytes (for technicians: that five bytes consists of two bytes for the line 
number, two bytes for an internal pointer, and one byte for a delimiter 
at the end of each statement). You can save four of these five bytes 
for every statement combined on a line (the colon separator will use 
one of the five bytes eliminated). For example, instead of coding: 

100 A=A+1 

200 IF A>25 THEN Z%=0 

you can save four out of the five byte overhead of the second line by 
coding: 

100 A=A+1:IF A>25 THEN Z%=0 

However, no suggestions are free of charge, and there is also 
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something to watch out for in this instance. You may freely combine 
statements for up to 80 characters, but it is possible that one of the 
statements you are combining might be the object of a GOTO or 
GOSUB statement, in which case you will receive the "UNDEFINED 
STATEMENT" error message, in the example immediately above, if 
there were another statement in the program which was "GOTO 
200", line number 200 would not be in the program after combining 
the two lines and you would get the error message. If you had a 
statement that was "GOTO 1 00", that would not cause any prob- 
lems. 

Another item to watch for when combining statements is not to 
combine a line with a preceding line that contains an IF statement. 
The statement shown above is all right. However, if the two lines 
were reversed: 

100 IF A>25 THEN Z%=0 
200 A=A+1 

you would not be able to combine the lines as: 
100 IP A>25 THEN Z%=0:A=A+1 

without altering the meaning of the statement. In this instance, the 
addition statement would be executed only if A were greater than 
25, which is not the intent of the original. 

The last item that returns a little usable memory at the expense 
of readability and documentation is the use of short variable names. 
Although variable names may be up to 255 characters, BASIC uses 
only the first two characters (plus the $ and % suffixes for string and 
integer variables respectively). Each character in the variable name 
occupies a b3^e wherever it is used; therefore, you should limit 
variable names to two characters, and one character would be even 
more thrifty from a memory-use point of view. Limiting the names to 
two characters could have a side benefit inasmuch as it may eliminate 
a potential source of programming error. If you had two variables, 
one named "TAPE" and the other named "TASTE," BASIC would 
recognize only "TA" as the name and would, in effect, be dealing 
with a single variable. 

Avoiding a technical discussion as to why it is so, it is usually 
more economical to use constants instead of variables whenever 
possible. A constant consists of data stored in the BASIC statement 
itself. Constants may require less memory than variables, especially 
in cases where the constant is a relatively shori: string. As the length 
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of the string increases, the amount of savings diminishes because 
the repetition of the constant also occupies memory. 
Each of the following lines contains a constant: 

100 A=A+1 

("1" is the constant) 
100 S$=D$+"SUFFIX" 

("SUFFIX" is tlie constant] 
100 PRINT"TOTAL=";X 

("TOTAL = " is the constant) 

To illustrate the savings that can be gained: 

100 T$="THIS IS A TEST" 
200 PRINT T$ 
300 PRINT T$ 

occupies 72 bytes of memory, whereas 

100 PRINT"THIS IS A TEST" 
200 PRINT"THIS IS A TEST" 

occupies only 69 bytes of memory. That is not much of a savings 
because the string "THIS IS A TEST" is relatively long; if it were 
shorter, the savings would be more dramatic. The reason for this is 
that when data is assigned to a variable, it requires two areas of 
memory, but a constant requires only one (in the instruction itself). 

BASIC is sometimes very shrewd as far as memory management 
is concerned. BASIC is smart enough to know when you have used 
a string and BASIC will reuse it rather than recreate it again in memory. 
Thus, if you have coded the statement: PRINT "THIS IS A TEST" and 
elsewhere in your program you coded AS = "THIS IS A TEST", 
although memory would be required to contain pointers for the 
variable "AS", the actual text string "THIS IS A TEST" would not be 
recreated in memory (except in the instruction itself). The original 
text string would be pointed to by the variable. This is starting to 
border on the kind of technical information that this article has tried 
to avoid, but is interesting enough to pass on. 

Don't Avoid Integer Variables 

It seems that most people writing BASIC programs never bother with 
integer variables, yet that is where a significant savings in memory 
can be obtained. This is particularly true if the program contains 
arrays. Consider that, for each element in an array, the number of 
bytes occupied is as follows: 
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A string array = three bytes plus the length of the string 

per element. 
A floating point array = five bytes per element. 
An integer array = two bytes per element. 

The contents of many arrays do not require the use of decimal 
points, but it is easier to code "DIM A( 1 5) " rather than "DIM A%( 1 5)." 
By using the integer form, you would save 45 bytes of memory. 
Suppose you were writing a program to deal a deck of cards and 
you defined an array to keep track of which cards have already been 
dealt. That 52 element array could be a string array, a floating point 
array, or an integer array. Obviously, there is no need for decimals in 
this example, so the obvious choice would be to use integers. The 
following program was run three times on the VIC-20, each time 
changing the type of array (making the variable type in statement 
400 correspond to the array}. 

100 PRINT" {CLEAR} " 

200 DIM X(100) <= = = = Firstrun 

DIM X%(100) f= = = = Second run 

DIM X$(100) <= = = = Third run 

300 FOR Z=0 TO 99 

400 X(Z)=Z <= = = = Firstrun 

X%(Z)-Z f= = = = Second run 

X$ (Z)=CHR$ (Z) <= = = = Thirdrun 

500 NEXT Z 

510 PRINT FRE(X) 

The differences in memory use during these three runs are very 
dramatic: the first run used a floating point array and occupied 60 1 
bytes; the second run used the string array and occupied 403 bytes; 
and the final run, which used an integer array, occupied only 300 
bytes. Is it worth the cost of 300 bytes in order to save typing in a 
"%" each time the variable is used? 

Each of the memory conserving measures outlined so far 
would be relatively easy to implement using the editing capabilities 
of the \/IC-20 once a program is written and resident in memory. The 
last few suggestions are harder to implement, and the savings are 
more indefinite. 

If your program contains groupings of instructions that are 
repeated several times, it would be more memory efficient (and 
better programming practice) to incorporate those instructions once 
as a subroutine and GOSUB to them. If such statements are readily 
identifiable, you can implement this fairly easily with the following 
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three steps: 

1 . Add a RETURN statement after the first group of statements. 

2. Place a GOSUB statement whose object line number is the 
first line number in the group immediately preceding the group. 

3. Add a GOTO statement immediately after the inserted 
GOSUB statement whose object line number is the statement 
immediately following the RETURN statement. 

Naturally you would delete all other occurrences of the same 
group of statements and replace them with a GOSUB to the newly 
created subroutine. This sounds very complicated, but actually is 
quite easy to implement and is illustrated in the fictitious routine that 
follows. Assume that the statements starting with line number 650 
and ending with line number 7 1 are repeated several times in the 
program. 

640 PRINT "ABC" 

6 50 A=A+1 

660 IF A=9 THEN 700 
670 PRINT"MESSAGE ONE" 
680 MC=MC/A 
690 GOTO 

7 00 PRINT "MESSAGE TWO" 
710 MC=MC*A 

720 IF Q+l=10 

You can convert this to a subroutine using the technique 
described by adding lines 645 and 7 1 5 in the following illustration: 

640 PRINT "ABC" 

645 GOSUB 650:GOTO 720 < = = = = New statement 

6 50 A=A+1 

660 IF A=9 THEN 700 
670 PRINT"MESSAGE ONE" 
680 MC=MC/A 

690 GOTO 

700 PRINT "MESSAGE TWO" 
710 MC=MC*A 

715 RETURN < = = = = New statement 

720 IF Q+l=10 

Another almost obvious way to decrease the amount of storage 
your program uses is simply to reduce the size of messages that you 
display on the television. For example, if your program displays the 
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word "TOTAL", change it to "TOT". If your program contains cards, 
instead of spelling out "KING," "QUEEN," and JACK," simply use a 
K," Q," and "J," respectively. 

Another item to investigate is the use of more economical instruc- 
tions to achieve the same results. Shown below is an example of 
how you can replace multiple IF statements with a single ON 
statement. The program does the exact same thing either way you 
write it, but using the ON statement yields a savings of 62 bytes. 

The following statements 

300 IF A=l THEN 510 

310 IF A=2 THEN 550 

320 IF A=3 THEN 600 

330 IF A=4 THEN 650 

340 IF A=5 THEN 700 

350 IF A=6 THEN 750 

could be replaced with the single statement: 

300 ON A GOTO 510,550,600,650,700,750 

Consider using FOR/NEXT loops wherever possible instead of 
repeating instructions. Suppose you wanted to print a vertical line 
down the center of the screen. You could program it as: 



300 PRINTTAB(10) 
310 PRINTTAB(10) 
320 PRINTTAB(10) 
330 PRINTTAB(10) 
340 PRINTTAB(10) 
350 PRINTTAB(10) 
360 PRINTTAB(10) 
370 PRINTTAB(10) 
380 PRINTTAB(10) 
390 PRINTTAB(10) 
400 PRINTTAB(10) 



11 ^ II 

n'^ii 
ii"j"ii 
II "I" II 

iiy II 

ll"j"ll 
ll'j'll 
ll'j'll 
II "^11 

ll"!"!! 

Il"j"ll 



or alternatively you could code: 

300 FOR X=l TO 11 
310 PRINTTAB(10) ; "1" 
320 NEXT X 

Again, the same results are achieved, but the FOR/NEXT loop 
yields a savings of 1 18 bytes! 
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Overlaying 

You can sometimes conserve memory by overlays. If your program 
runs in two separate and distinct phases (that is, one portion of your 
program completes all its work and then is never executed again), it 
should be possible to split your program into two sections. Have the 
last statement in the first section issue the statement "LOAD PHASEH" 
(assuming your second phase is named "PHASE 11"). When the first 
section completes its job, the last instruction would load the next 
phase for execution. 

This assumes that you have written PHASEII onto the cassette 
tape immediately after PHASEI. This is called overlaying; it lends itself 
well to a disk-oriented system, but there is no reason not to use it 
with tape also. You should be aware that any variables used in the 
first phase will not be available in the second phase. (However, even 
though this should work, the author has not yet been able to do it 
successfully.) 

If you still need memory, you may be able to put some of the 
data used in your program on a cassette tape and read the data in 
during program execution. This technique will involve your writing a 
special program to create the data tape, but in some instances, this 
can yield substantial memory savings. "Custom Characters for the 
VIC" (reprinted in this book) contains a program which lends itself 
very well to illustrating this memory-saving technique. 

This program contains a number of DATA statements and is 
shown below: 

170 READ X:IF X>0 THEN 190 

180 FOR X=X TO X+7 

182 READ J 

184 POKE I, J 

186 NEXT 

190 GOTO 170 

340 DATA 7168,24,24,36,60,102,66,66,0 
350 DATA 7176,124,34,34,60,34,34,124,0 
360 DATA 7184,126,34,34,32,32,32,112,0 
600 DATA 7376,0,0,0,0,0,0,0,0 
610 DATA -1 

You would have to write a program to write the data to cassette 
tape (and ideally you would write the data immediately after the 
program you saved that will be using that data). The original program 
can be easily modified to create the data tape, and an example 
could be: 
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100 0PEN1,1,2,"DATATAPE" 

170 READ X:PRINT#1,X:IF X>0 THEN 190 

180 FOR X=X TO X+7 

182 READ J:PRINT#1,J 

186 NEXT 

190 CLOSEl 

200 PRINT"DATA TAPE CREATED" 
210 END 

340 DATA 7168,24,24,36,60,102,66,66,0 
350 DATA 7176,124,34,34,60,34,34,124,0 
360 DATA 7184,126,34,34,32,32,32,112,0 
600 DATA 7376,0,0,0,0,0,0,0,0 
610 DATA -1 

You would then substitute INPUT# 1 statements for READ 
statements in the original program, but the results would be the 
same. If you wanted to use the concept in Mr. Malmberg's article in 
your own program, but needed additional memory, this technique 
would provide you with a significant amount of memory. 

The modified program would be: 

165 OPEN 1,1,0,"DATATAPE" 

170 INPUT#1,X:IF X>0 THEN 190 

180 FOR X=X TO X+7 

182 INPUT#1,J 

184 POKE I, J 

186 NEXT 

190 GOTO 170 

340 REM-NO DATA STATEMENTS-RESULTS IN 
350 REM-A SIGNIFICANT REDUCTION IN MEMORY 

Let's assume that you have exercised all the memory-saving 
procedures outlined and your program still requires additional 
memory. The last thing to do is carefully investigate the logic of your 
program. Are there statements that are never executed (perhaps left 
over from an initial idea that was abandoned)? Naturally, you 
should remove them. Are there better ways to implement a procedure 
that might reduce the number of instructions necessary to accomplish 
some objective? Sometimes being able to buy backjust five or ten 
bytes of memory will allow your program to run. 

One final point; there are instances when you have worked for 
hours on a large, complicated program and you decide to save it on 
a cassette tape. You type in the command "SAVE MYPROGRAM", 
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press ENTER, and lo and behold, instead of receiving the message to 
press the play and record buttons, you instead get the message 
"OUT OF MEMORY. " This is one of the most frustrating events ^ 
possible when writing a program because you do not want to lose 
the hours of effort already expended. Try issuing the "SAVE" com- 
mand with a shorter filename; this usually works. Instead of entering 
"SAVE MYPROGRAM", use "SAVE A". 

It takes some effort, but using the techniques outlined here 
could mean the difference between being able to do what you <J 
want with your VIC-20 or being continuously confronted with an 
out of memory condition. With a little patience you might be able 
to find that needle in the haystack. If all else fails, don't give up O 
hope. Remember that your VIC-20 has the capability of being ex- ^'j 
panded to 32Ki 

o 

O 
O 
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An Easy Way 
To Relocate 
VIC Programs On 
Other Commodore 
Computers 

GREG and ROSS SHERWOOD 



This is an "automated" VIC to PET loader, it wiii move a 
VIC program LOADed into the PET to the proper place. 
Just type SYS 926. 

BASIC programs generated on the V]C-20 start at memory location 
4097 (decimal) rather than at 1 025 as in Commodore's other com- 
puters. Thus, if you wish to use features available for some of the 
other computers, such as Toolkit, to edit or modify a program written 
or stored from a VIC, you need to relocate the program so it starts at 
memory location 1 025. 

Here is a quicl< and simple method of relocating VIC programs. 
We will describe two versions, one using the built-in monitor and 
the other done in direct mode. 

To relocate a VIC program from the monitor, load the program 
from tape and then enter the monitor with SYS 1 024. Next, look at 
the first part of BASIC memory by typing M 0400 0400. Make the 
following changes to the displayed memory: 

.M 0400 0401 
.: 0400 00 01 10 00 00 99 00 XX 

Next, exit the monitor by typing an X. Now type LIST and the 
VIC program should list out with an additional line (line 0) at the 
beginning: PRINT. Finally, type "0" and RETURN. The VIC program 
is relocated and can be edited or modified at will. 

To accomplish the same change in direct mode, the following 
six POKES are entered: 
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039E 


A9 


00 


8D 


03 


04 


8D 


04 


04 


03A6 


8D 


06 


04 


A9 


30 


8D 


6F 


02 


03AE 


A9 


01 


8D 


01 


04 


A9 


10 


8D 


03B6 


02 


04 


A9 


99 


8D 


05 


04 


A9 


03BE 


0D 


8D 


70 


02 


A9 


02 


85 


9E 


03C6 


60 


00 


00 


00 


00 


00 


00 


00 



This program can be saved on tape or disk by saving from 039E 
to 03C8, and then can be loaded in anytime and used to relocate 
VIC programs with a SYS926 command until the machine is turned 
off or the second cassette buffer is used for some other purpose. This 
subroutine is located high enough in the second cassette buffer that 
disk operations don't overwrite it. 

This subroutine automatically erases line so that, when you 
return to BASIC, the VIC program is moved and ready to be edited or 
modified without the necessity of removing line 0. 



Program 1 . Disassembly. 

039E A9 00 LDA #$00 

142 



O 



POKE 1 025,1 :POICE 1 026, 1 6 ^ 

change link pointers to VIC program 
POKE 1 027,0:POKE 1 028,0 

create line #0 
POKE 1029,159 

put PRINT on line 
POKE 1030,0 

end of line indicator 



o 
o 



Now, as above, type LIST and the VIC program will list with the 
additional line PRINT. O 

Last, type "0",and the line will be eliminated so the VIC 
program can be edited. 

This method works with both BASIC 3.0 and 4.0 Commodore 
computers and, though it hasn't been tested on other versions, it 
should work on those as well. It has been successfully used on both 
40 and 80 column machines. 

If you should wish to relocate several VIC programs in succession, 
the following assembly language subroutine can be used. It begins 
at location 926 in the second cassette buffer and can be called by 
SYS926. To load this program, enter the monitor and type M 039E 
03C8 and change the memory as follows: 
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03A0 


8D 


03 


04 


STA 


$0403 


03A3 


8D 


04 


04 


STA 


$0404 


3A6 


8D 


06 


04 


STA 


$0406 


3A9 


A9 


30 




LDA 


#$30 


03AB 


8D 


6F 


02 


STA 


$026F 


03AE 


A9 


01 




LDA 


#$01 


03B0 


8D 


01 


04 


STA 


$0401 


03B3 


A9 


10 




LDA 


#$10 


0385 


8D 


02 


04 


STA 


$0402 


03B8 


A9 


99 




LDA 


#$99 


03BA 


8D 


05 


04 


STA 


$0405 


03BD 


A9 


0D 




LDA 


#$0D 


03BF 


8D 


70 


02 


STA 


$0270 


03C2 


A9 


02 




LDA 


#$02 


03C4 


85 


9E 




STA 


$9E 


03C6 


60 






RTS 




03C7 


00 






BRK 




03C8 


00 






BRK 
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Kaleidoscope And 
Variations 

KENNETH KNOX 

Here's a short graphics program. After you RUN it, try the interesting 
variations created by substituting for lines 16 and 70. 1 like it best 
after POKE 36879,93 for the screen and border. 



Program 1 . 

5 PRINT "'{CLEAR}" 
10 FOR X = 5 TO 9 

15 Z = 7680 

16 W = 81 

20 POKE {Z+X+22* (X+1) ) ,W 
30 POKE (Z+X+22* (X+12) ) ,W 
40 POKE (Z+X+11+22* (X+1) ) ,W 
50 POKE (Z+X+11+22* (X+12) ) ,W 
55 IF Z = 38400 THEN 90 
60 IF Z = 7680 THEN 70 
70 Z = 38400 : W = 2 
80 GOTO 20 
90 NEXT X 



Program 2. 

16 W = INT(255+10*RND(1) ) 

70 Z = 38400 : W = INT(7*RND(1) ) 
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High Resolution 
Plotting 

PAUL F. SCHATZ 

Follow these guidelines to fully utilize VIC's high 
resolution graphics potential. 

One of the features of the VIC-20 that attracted me was its advertised 
high resolution color graphics. However, until I acquired The 
Programmer's Reference Guide, I was completely frustrated in trying 
to implement the hi-res graphics the VIC-IO is ultimately capable of 
producing. 

The book details how to plot a small (64-bit by 64-bit) window 
on the screen (pp. 88-92). A simple extension of the algorithm in the 
guide allows creation of a larger (128 by 128) window. Using a 
memory expansion (either a 3K or 8K), the resolution can be increased 
to 1 76 by 1 60 bits. The methods for creating these windows are 
detailed in this article. For the basics on high resolution plotting with 
the V\C-20, the reader should consult The Programmer's Reference 
Guide. 

The 128 X 128 Window 

To implement high resolution plotting, the screen is filled with 
programmable characters which are redefined on the fly. Since each 
character is 8 bits wide by 8 bits high, arranging all 256 characters of 
the VIC on the screen in a 16-character by 1 6-character array creates 
a window with a resolution of 1 28 bits by 1 28 bits. 

Two hundred fifty-six programmable characters require 2K 
bytes of RAM (8 bytes per character times 256 characters). With only 
3.5K bytes of RAM available in an unexpanded VIC-20, this leaves 
1 .5K bytes of unallocated RAM. The most efficient arrangement of 
RAM requires some shuffling so that all 1 .5K bytes of RAM are 
available for BASIC programming. The RAM of the VIC-20 is arranged 
so that BASIC program and working RAM extends from 4096 to 
563), screen RAM extends from 5632 to 6143, and programmable 
character RAM extends from 6 1 44 to 8 1 9 1 . The screen is moved 
using a modification of a method described by Jim Butterfield in 
"Alternate Screens," reprinted in this book. 
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Program ) demonstrates how to set up and draw in the 128 by 
128 window. For clarity, versatility, and ease of programming, the 
program has been divided into several subroutines. These subroutines 
are located at the beginning of the program for speed and economy 
of bytes when calling them. The program outlines the window with 
a black line, draws a horizontal axis, and plots (with black dots) a 
sine curve. After the graph is finished, pressing any key will change 
the color of the lines and dots from black to green. After the color 
has been changed, pressing any key will clear the screen. Pressing 
any key one more time will restore the screen to the normal display 
and exit the program. 



Program 1 . 

POKE52,22:POKE56,22:CLR:GOTO10 

1 F0RI=6144T08191 :POKEI ,0 :NEXT:RETURN 

2 POKE36864,ll:POKE36865,34:POKE36866,144:PO 

KE36867,32:POKE36869,222:POKE36879,25 

3 FORI=0TO255:POKE5632+I, I :NEXT: RETURN 

4 FORI=0TO255:POKE38400+I,CO:NEXT:RETURN 

5 CH=INT(Y/8)*16+INT(X/8) 

6 RO=(Y/8-INT(Y/8) ) *8 : BY=6144+8*CH+RO 

7 BI=7-(X-INT(X/8)*8) :POKEBY,PEEK (BY) 0R(2TBI 

) : RETURN 

8 POKE36864,5:POKE36865,25:POKE36866,150:POK 

E36867,46:POKE36869,208:POKE36879,27 

9 PRINTCHR$ (147) rRETURN 

10 POKE36869,208:POKE648,22:FORJ=217TO228:POK 

EJ,150:NEXT 

11 FORJ=229TO250:POKEJ,151:NEXT 

12 GOSUB2:CO=0:GOSUB4:GOSUB1 

13 FORX=0TO127:Y=0:GOSUB5:Y=64:GOSUB5:Y=127:G 

0SUB5:NEXTX 

14 FORY=0TO127 :X=0 :G0SUB5 :X=127 :G0SUB5 :NEXTY 

19 FORX=0TO127:Y=INT(64+63*SIN(X/10) ) :G0SUB5: 

NEXTX:A$="" 

20 GETA$:IFA$=""THEN20 

21 CO=5:GOSUB4:A$="" 

22 GETA$:IFA$=""THEN22 

23 G0SUB1:A$="" 

24 GETA$:IFA$=""THEN24 
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2 5 G0SUB8 
26 END 

Here's an explanation of Program 1 : 

Moves the end of memory and start of strings pointers and 
skips over the subroutines to the start of the program. 

1 Clears the high resolution screen. All the bytes of the character 
set are zeroed (no pixels are turned on). 

2-3 Sets up the high resolution screen. POKE 36864 centers the 
screen vertically, POKE 36865 centers the screen horizontally, 
POKE 36866 sets a 1 6-column display ( 1 44 = 1 28 + /6), POKE 
36867 sets a 1 6-row display (32 = 16*2], POKE 36869 defines 
the start of the programmable character set, and POKE 36879 
defines the border and screen colors (25 = white screen and 
white border). All 256 characters are placed on the screen in a 
1 6 by 1 6 character array, left to right, top to bottom. 

4 Defines the color of the points plotted. 

5-7 Turns on the pixel at coordinates X, Y. The origin (X = 0, Y = 0) 
is the upper left corner of the window. This is a slight modifi- 
cation of the plotting routine given in The Programmer's 
Reference Guide. 

8-9 Restores the screen to a normal display and clears the screen. 
10-1 1 The start of the program. The beginning of the screen RAM is 
moved to 5632. 

1 2 Sets up the high resolution display. 

1 3 Draws three horizontal lines (top and bottom borders and 
horizontal axis). 

14 Draws two vertical lines (left and right borders). 
19 Plots the sine curve. 

21 Changes the color of the plotted points to green. 

23 Clears the high resolution screen. 

25 Restores the V\C-20 to the normal screen display. 

The 1 76 X 1 60 Window 

Now the question is "How can resolution better than 1 28 by 1 28 be 
achieved, since the complete set of 256 characters available to the 
VIC-20 has been used?" The solution lies in the character cell size. 
Normally characters are 8 bits wide by 8 bits high. This allows for a 
total of 1 6348 bits to be plotted (64 bits per character times 256 
characters). However, setting a bit in one of the VIC registers (bit of 
location 36867) changes the character cell size to 8 bits wide by 1 6 
bits high. By redefining the character cell size, theoretically twice as 
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many points (i.e., 32768) can be plotted, in practice there are factors 
which limit achieving the maximum. Most important of these is 
where the programmable character set RAM and screen RAM have 
to be located. For all practical purposes, these must be located in the 
RAM addressed from 4096 to 8 1 9 1 . Since 32768 bits require 4096 
bytes (32768 bits divided by 8 bits per byte) of storage, the character 
set and screen will have to overlap. It also becomes obvious that 
expansion RAM will be required for this higher resolution since all 
the built-in RAM of the \/IC-20 is consumed for screen and character 
set. Either a 3K or 8K RAM expander can be used. If an 8K expander 
is used, the start of BASIC has to be moved. 

After exploring many different configurations, I finally com- 
promised on a 1 76 by 160 display. Limiting the display to this size 
resolves the conflict between the character set and screen, and 
makes the routines for setting up the display and plotting points the 
most straightforward. I have opted for the easy route and have left it 
to the more innovative programmers to push the resolution higher. 
For a 1 76 by 160 display, 220 characters, each 8 bits wide by 16 bits 
high (22 columns by 10 rows), are used. The RAM required to store 
these characters resides from 4096 to 7615 (220 characters times 16 
bytes per character =3520 bytes). The screen RAM is located from 
7680 to 8 1 9 1 . Program 2 is an example of 1 76 by 1 60 high resolution 
plotting on a V\C-20 with 3K RAM expander. 



Program 2. 

POKE52,22:POKE56,22:CLR:GOTO10 

1 FORI=4096TO7615:POKEI,0:NEXT:RETURN 

2 POKE36865,30:POKE36867,21:POKE36869,252:PO 

KE36879,30 

3 FORI=0TO219:POKE7680+I ,I:NEXT:RETURN 

4 PORI=0TO219:POKE38400+I ,CO:NEXT:RETURN 

5 CH=INT(Y/16) *22+INT(X/8) 

6 RO=(Y/16-INT(Y/16) ) *16 : BY=4096+16*CH+RO 

7 BI=7-(X-INT{X/8) *8) : POKEBY ,PEEK (BY) OR ( 2TBI 

) : RETURN 

8 POKE36865,25:POKE36867,46:POKE36869,240:PO 

KE36879,27 

9 PRINTCHR$ (147) : RETURN 

10 REM**START OF PROGRAM 

12 GOSUB2:CO=0:GOSUB4:GOSUB1 

13 FORX=0TO175:Y=80:GOSUB5:NEXTX 
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19 FORX=0TO175;Y=INT(80+79*SIN(X/10) ) :G0SUB5: 

NEXTX:A$="" 

20 GETA$;IFA$=""THEN20 

21 CO=5:GOSUB4:A$="" 

22 GETA$:IFA$=""THEN22 
2 3 G0SUB1:A$="" 

24 GETA$:IFA$=""THEN24 
2 5 G0SUB8 
26 END 

Programs 1 and 2 are very similar. Here's where statements in 
Program 2 differ significantly from those in Program 1 : 

2-3 The initialization subroutine which sets up the high resolution 
screen. POKE 36865 centers the screen horizontally, POKE 
36867 sets a 1 rowdisplay of 8 by 1 6 characters (2 1 = /C*2 
+ I ), POKE 36869 defines the start of the programmable char- 
acter set, and POKE 36879 defines the border and screen 
colors (30 = white screen and blue border). Two hundred 
twenty characters are placed on the screen in a 22 by 1 char- 
acter array, left to right, top to bottom. 

5-7 The plotting subroutine which turns on the pixel at coordi- 
nates X, Y. The origin (X = 0, Y = 0) is the upper left corner of the 
window. Notice that the Y values are divided by 1 6 instead of 
8. Also different is the number of columns (22 replaces 1 6 as 
a multiplier in statements). 

1 3 Draws a horizontal axis in the center of the screen. 

To use the high resolution screen with the 8K RAM expander, 
the start of BASIC must first be moved to 81 92 by entering the 
following command in the direct mode: 

POKE44,32:POKE8 1 92,0:NEW 

Now enter Program 2 with the following modification and additions; 
GOTO 10 

10 POKE 36866, 150:POKE 36869 , 240 : POKE 648,30 

11 FORJ=217TO228:POKEJ,158:NEXT:FORJ=229TO250 

:POKEJ,159:NEXT 

The POKES to set the end of memory and start of strings are no 
longer needed since the screen RAM is located before the BASIC 
RAM. Plugging the 8K RAM expander into the VIC-20 automatically 
moves the start of screen RAM to 4096. Statements 1 and 1 1 move 
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the start of screen RAM back to 7680. 
Reference: 

A. Finkel, N. Harris. P. Higginbottom, and M. TomczyK VIC-20 Program- 
mer's Reference Guide, Commodore Business IVIachines, Inc. and 
Howard W. Sams & Co., Inc., 1982. 
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VIC Color Tips 

CHARLES BRANNON 

Users of other computers, such as the Atari or Apple, 
will find the VIC harder to use for color graphics because 
there are no dedicated statements for controlling 
these features. For first time users, this should make 
things easier. 

The only command that can be used for graphics besides PRINT is 
POKE. POKE places a number into a memory location. Its format is 
POKE A,B. A is the memory location, and B is the value to be placed 
there, zero to 255. Some spots in memory can control input/Output 
chips, such as the Video Interface Chip inside the VIC. Location 
36879 is the control register for background and border colors. To 
get each combination, you place a number from zero to 255 into 
36879, as previously mentioned. For any particular combination, you 
can look up the colors in the table at the end of this article (Table 2). 
There is an easier way, however, at least from a programming 
standpoint. 

An Easier Way 

The DEF FN command allows the programmer to design his own 
function. The VIC has, for example, the standard INT function. INT(X) 
will give you the whole-number value of the argumentX by dropping 
the fractional portion. It does not round X. To provide a rounding-up 
function, we can use the DEF FN command. To round dollar and 
cents amounts, the statement DEF FNR(V) = INT (V* 1 00 + .5)/l 00 is 
executed at the start of the program. After that, FNR(X) will give you 
the rounded version of X, or any value in parentheses. PRINT 
FNR(3. 141 5927) will return 3.14, while PRINT FNR(500.076) will give 
500.08. The R after the FN is a label to remind you what the function 
does. Here R stands for Round. These labels have the same format as 
numerical variable names. 

What we want to do is to devise a formula which will give us 
the right number from the table for each color, one to 16. We will 
give the background color from one to 16 through the FN routine, 
and it will give us the number ready for POKEing. To get any back- 
ground color from any of the 1 6 possible colors, just multiply the 
color number by 16 and then subtract eight. We can code this as 
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DEF FNCfV) = \/*16-8. Remember, V is just a dummy variable used 
to define tlie relationsfiip of the argument (wliat we give the routine) 
in the formula. Next we use a little shorthand. The number 36879 
(the color control) is a little hard to remember, and it does not look 
much different than any other memory location. We will make it 
easier to remember (make it mnemonic) by making it a variable, 
SCREEN = 36879. Now we can call forth any of our 1 6 colors with 
the statement: POKE SCREEN, FNC [color], where color \s the num- 
ber from one to 16. This almost looks like a real graphics command. 

Adding Border Colors 

What about the border colors? In addition to the background, you 
can have eight border colors, numbered from zero to seven. This is 
one less than the corresponding number on the color keys (CTRL-6 
would be 5). Nowjust take this number and add it to the number 
that you POKE into SCREEN. Now we just use: POKE SCREEN, FNC 
{color] + border, where border is the border color, zero to seven. If 
you don't use border colors, or don't add anything to FNC(co/oa), 
then the border will be black. 

Remember that if the background is the same color as the text, 
the cursor will become invisible. If you need to, set things straight 
with POKE 36879,27 or hold down RUN/STOP and press RESTORE to 
reset. 

The little program at the end of this article demonstrates what 
I've been talking about by displaying all the combinations of screen 
and border colors. It's simple to figure out, so look it over and get to 
work on your Victorious applicationsi 



Table 1 . Screen/Border Colors. 



Screen 



Border 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 



Black 

White 

Red 

Cyan 

Purple 

Green 

Blue 

Yellow 

Orange 

Light Orange 

Pinic 



12 
13 
14 
15 
16 



Light Cyan 
Light Purple 
Light Green 
Light Blue 
Light Yellow 




1 
2 
3 
4 
5 
6 
7 



Blacic 

White 

Red 



Cyan 
Purple 
Green 
Blue 



Yellow 
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100 REM * ANOTHER RAINBOW * 
110 DEF FNC(V) =V*16-8 
120 SCREEN=36879 
130 FOR BK=1 TO 16 
140 PRINT "{CLEAR} {WHT}"; 
150 IF BK>1 THEN PRINT "{ELK} 
PRINT "SCREEN" ;BK 
FOR BD=0 TO 7 
POKE SCREEN, FNC(BK)+BD 
PRINT, "BORDER" ;BD 
FOR W=l TO 500:NEXT W 
NEXT BD 
220 NEXT BK 
230 POKE SCREEN, 27 
240 END 



160 
170 
180 
190 
200 
210 



Table 2. POKE Values. 

BACKGROUND # 



BORDER 








1 


2 


3 


4 


5 


6 


7 


1 


8 


9 


10 


11 


12 


13 


14 


15 


2 


24 


25 


26 


27 


28 


29 


30 


31 


3 


40 


41 


42 


43 


44 


45 


46 


47 


4 


56 


57 


58 


59 


60 


61 


62 


63 


5 


72 


73 


74 


75 


76 


77 


78 


79 


6 


88 


89 


90 


91 


92 


93 


94 


95 


7 


104 


105 


106 


107 


108 


109 


110 


111 


8 


120 


121 


122 


123 


124 


125 


126 


127 


9 


136 


137 


138 


139 


140 


141 


142 


143 


10 


! 152 


153 


154 


155 


156 


157 


158 


159 


11 


: 168 


169 


170 


171 


172 


173 


174 


175 


12 


: 184 


185 


186 


187 


188 


189 


190 


191 


13 


: 200 


201 


202 


203 


204 


205 


206 


207 


14 


216 


217 


218 


219 


220 


221 


222 


223 


15 


232 


233 


234 


235 


236 


237 


238 


239 


16 


248 


249 


250 


251 


252 


253 


254 


255 
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The Window 

CHARLES BRANNON 

The VIC'S window to the world is your TV set. You can 
control the window with PEEKs and POKEs. 



Think about it. What is involved in placing a character on the screen? 
If you look at one closely, you can see that each character is made 
up of tiny dots. (Try SHIFT-M.) These dots are the smallest images 
the VIC can produce. They are called picture elements, or simply 
pixels. If you have the VIC Super Expander Cartridge, you should be 
able to put any individual pixel anywhere on the screen. For text and 
keyboard graphics, though, the VIC handles all that for you. 

You may have heard that the screen is stored somewhere in 
memory. Why? And perhaps more perplexing - how? If you do not 
already know how images are formed on a television screen, here is 
a brief explanation. Inside the picture tube is a small rod called an 
electron gun which "shoots" a fast stream of electrons, much as a 
machine gun shoots bullets. These electron bullets strike a special 
coating on the inner front surface of the screen. After a spot is hit by 
the beam, it will glow for only a brief time, and then fade away. 
Therefore, you cannot just smack something on the screen and 
expect it to stay there. It is necessary to constantly re-draw the image 
on the TV screen. The VIC refreshes the screen sixty times a second. 
In order to do that, the intended contents of the screen must be 
stored somehow so that they can be constantly fetched and placed 
on the screen. 

There is another reason why characters are stored in memory. 
That way, you can look at that memory and effectively let the 
computer "look" at its own screen. You can also make characters 
appear on the TV screen as if by magic, merely by changing some of 
that memory. So, the numbers in the computer's memory are placed 
in a pattern of light and dark spots on the screen to form images. In 
effect the TV screen is a window looking at the memory set aside for 
it. 

Now we are ready to tackle the next question. How is this 
done? As mentioned, each character is made of pixels. All of the 255 
characters that the VIC can print are eight pixels long and eight 
pixels wide. So, each box on the screen could contain up to 64 pixels 



157 



CHAPTER FOUR 



(RVS-space uses them all). There are 23 rows of 22 characters on the 
VIC'S screen. Therefore, there are 506 boxes, and 506 x 64 pixels. 
This makes an incredible 32,384 pixels for the belabored VIC to keep 
track of. 

What Color Are Characters? 

Fortunately, information is not stored on the screen pixel by pixel. In 
reality, each of the 506 boxes corresponds to a memory location. A 
memory location can hold a number between zero and 255, and the 
VIC can display up to 255 characters. Voilal A perfect matchi And, 
indeed, that is the way it works. Each character is assigned a number 
from zero to 255. The numbers 1 -26 refer to the letters A-Z. That's 
easy enough. Numbers are 48-54 (0-9). 

The only other thing you need to know in order to tickle your 
TV is how the VIC keeps track of what color each character is. There 
are another 506 memory locations (boxes, if you like) to correspond 
to the color of a character in that box. Each memory box holds a 
number from zero to seven. These are the numbers that are above 
each "color control key," minus one. Because there are two separate 
areas for text and colors, you can change one without altering 
the other. You can change the color of selected screen boxes, or 
change the letters, numbers, or graphics in a box, yet keep the same 
color. 

Now we are ready to get down to business. The text memory 
starts at 7680 and naturally ends at 8 1 85. (Note: To allow for "floating 
memory" on VICs with more than 4K of RAM, use: TEXT=4*(PEEK 
(36866)AND 128) + 64*(PEEK(36869)AND 120):COLOUR = 37888 + 
4*(PEEK(36866)AND128). See COMPUTE!, October 1981, #1 7.) The 
color memory begins at 38400. To make things easier, we'll use full 
variable names to label these numbers. TEXT= 7680 and COLOUR = 
38400. Why the British spelling of COLOR? Otherwise the VIC would 
see it as COL OR = 38400. "OR" is a reserved word (it's used by 
BASIC), so it would give a nasty SYNTAX ERROR. 

Now, in order to find the location of each box, we'll use the 
simple formula: LOC = CLM -1- 22*ROW. ROW Is the line, or vertical 
part, and CLM is the column, or the horizontal component. LOC will 
now contain a number from zero to 505, assuming that you number 
rows from zero to 22 and columns from zero to 2 1 , and that is just 
what you have to do. Okay, now let's pick our character (say 1 02, 
the gray square) and get POKEing. That's right, we use the command 
POKE to place our numbers into memory. 

POKE is used in this format: POKE mem.num where rvem is the 
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memory location from zero to 65535, and num is the number you 
want to put there from zero to 255. Remember, be careful with 
POKE. You have to remember that the VIC uses some memory for its 
own secret things, and it might temporarily go crazy (hang up) if you 
confuse it by POKEing randomly. 

On your mark, get set... POKE! We use the following command, 
assuming that all our variables have been defined: POKE TEXT + LOC, 
1 02:POKE COLOUR + LOC,5. This makes a gray square appear on 
the screen at the predefined location. But it's not really gray. It's more 
like apple-green. This is a nifty tip: If you only want to draw with 
solid squares, you can have 16 colors: eight from reverse-field 
spaces, and eight lighter-colored ones from "grey squares" (what 
else could we call them?). 

Now you have the basis for using your television window. You 
take it from there. You can design some remarkable application for it 
(like coordinate plotting, or bar graphs). 



1000 REM *** BORDER *** 

1010 REM FOR USE AS A SUBROUTINE 

1020 REM GOSUB 1000, OR 

1030 REM GOSUB 1080 TO CALL 

1040 REM WITHOUT CLEARING THE 

1050 REM SCREEN 

1060 PRINT "{CLEAR}" 

1070 DEF FNR(V) =INT(7*RND(1)+1) 

1080 SCREEN=36879:POKE SCREEN, 8 :REM BLACK 

1090 TEXT=4* (PEEK (36866) AND128) +64* (PEEK (36 

869)AND120) 
1100 COLOUR=37888+4* (PEEK (36866) AND128) 
1110 FOR 1=0 TO 22 
1120 POKE TEXT+1,102 
1130 POKE TEXT+22*22+I ,102 
1140 POKE TEXT+22*I ,102 
1150 POKE TEXT+21+22*! ,102 
1160 POKE COLOUR+I ,FNR(0) 
1170 POKE COLOUR+22*22+I ,FNR(0) 
1180 POKE C0L0UR+22*I ,FNR(0) 
1190 POKE COLOUR+21+22*! ,FNR(0) 
1200 NEXT I 
1210 RETURN 
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Custom Characters 
For The VIC 

DAVID MALMBERG 



Custom characters permit a programmer to easily dis- 
play and move multicolored "shapes" for fast and simple 
graphics, or specialized alphabets for foreign 
languages. 
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One of the many innovations built into the new Commodore VIC is 
the ability to design our own special characters and have them ^ 
available to BASIC programs. The possible uses are many. Now you 
can have different language fonts, such as Japanese, Chinese, or 
Arabic. You can display electronic schematic symbols. Or, you can <^ 
write a program that transcribes stenographic characters into English. 
Greek alphabet characters are now available for tutorial math 
programs requiring special symbols. You can even design your very ^ 
own Space Invaders creatures. ^ 

This article explains how to make these custom characters. It 
also presents a utility program to make the job of designing these <J 
characters and incorporating them into your BASIC programs quite 
easy and straightforward. Finally, a sample program is given that 
demonstrates the custom character features of the VIC by displaying <^ 
all of the special math symbols of the Greek alphabet. ^ 

VIC Character Sets ^ 

The character set to be used by the VIC is determined by the value in 

location 36869. (Note: all locations are given in decimal.) This is ^ 

similar to location 59468 in the PET or CBM machines. The various Q 

VIC character sets specified by POKEing this location are as follows: q 

POKE36869,240 gives uppercase and graphics (when shifted) Q 
POKE36869,242 gives lowercase and uppercase (when shifted) 
POKE36869,255 causes the VIC to set aside the first 64 characters w 
of the character set as user-defined characters. These special char- 
acters will be determined by values in the 512 locations beginning 
at 7168. W 
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VIC Character Representation 

To understand how to design your own VIC characters, you must 
first understand how the VIC represents its characters internally. Just 
how this is done was demonstrated by Jim Butterfield in his article 
in the April 1981 issue of COMPUTE!. Jim pointed out that the two 
"normal" character sets can be located by using the following 
equation: 

CHR(I) = 32768 + B + 8*1 
where B = for the upper/graphics set 
and B = 2048 for lower/upper characters 
and I = the "screen POKE" value of the character 

(e.g., @ is 0, A is 1 , B is 2, etc.) 

As an example, let's look at how the VIC stores an uppercase "A." It 
has a "screen POKE" value of 1, so by using the above equation we 
see that it is stored in the eight consecutive bytes beginning at 
location 32776. If we were to PEEK these locations, we would find 
the following decimal values - which have the specific bit patterns 
which define the pixel (i.e., dot) pattern the VIC uses when it prints 
an "A." The bit pattern corresponds to the binary representation of 
the decimal number found in the location. For example, location 
32782 contains a decimal 66 which is 01000010 in binary - i.e., the 
pattern at the bottom of the VIC's representation of an "A". 



BYTE 


DECIIMAL 


BIT PATTERN 


LOCATION 


VALUE 


7 6 5 4 3 2 1 


32776 


24 


* * 


32777 


36 


• * 


32778 


66 


• * 


32779 


126 


****** 


32780 


66 


* * 


32781 


66 


* • 


32782 


66 


* • 


32783 








Defining Your Own Cliaracters 

Let's see how you would go about designing and incorporating 
your own custom character into a BASIC program. For example, let's 
add the following vicious-looking creature to your version of Space 
Invaders or Dunjonquest. 
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7 


6 


5 


4 


3 


2 


1 





BINARY 


DECIMAL 


ROWO 


• 














• 


10000001 


129 


ROW1 


* 






* 


* 






* 


10011001 


153 


ROW2 




* 


* 






* 


* 




01100110 


102 


ROWS 








* 


* 


• 






00111100 


60 


ROW4 


• 


* 


• 


* 


* 


* 


* 


* 


11111111 


255 


ROWS 






• 


• 


• 


• 






00111100 


60 


ROW6 




• 










* 




01000010 


66 


ROW7 




* 










* 




01000010 


66 



o 

mm ^ 

O 

PIXEL PATTERN O 

O 

The binary and decimal values corresponding to the creature's pixel ^ 
pattern are also given. To get the VIC to use this pattern as one of its 
characters, let's enter and run the following short program: ^ 

1 00 X = PEEK(56)-2:POKE 52,X:POKE 56,X:POKE51 ,PEEK 
(55):CLR 

1 1 CS = 256*PEEK(52) + PEEK(51 ) 

1 20 FOR I = CS TO CS + 51 1 :POKEI,PEEK(l + 32768-CS):NEXT U 
130FORI=0TO 7:READ J:POKECS + l,J:NEXT . , 

140 DATA 129,153,102,60,255,60,66,66 ^ 
1 50 POKE 36869,255:PRINr'CLR" 
1 60 FOR I = 1 TO 1 1 :PRiNr'@ "0:NEXT 

After running the program you should see a row of 1 1 of your 

creatures on the top line of the screen. ^ 

Let's review this program line-by-line to understand how to use 
these special characters in other programs. Line 100 PEEKs two 
pages lower (a page is 256 bytes). Line 100 also changes the pointer 
to the beginning of the string variables (locations 51 and 52) to point 
to the beginning of these two pages. The CLR resets the user RAM 
boundaries so that these two pages are protected from the rest of 
the BASIC program. Line 1 1 calculates the starting location for the Q 
table containing the new character set. 

Line 1 20 transfers the first 65 characters of the standard upper- ^ 
case character set from ROM into the new character set table in the Q 
top two pages of user BASIC RAM. This is not strictly required, but it 
is good practice because it allows you to have access to "normal" ^ 
characters as well as your specially designed characters on the Q 
same screen. ^, 

Line 130 reads the data in line 140 that defines the pixel pattern 
for the creature and POKEs it into the table space used by the first 
character of the new character set, i.e., the table space used by the 
"@ " sign in the normal uppercase character set. ^ 



O 
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Line 150 tells the VIC to use the custom character set where the 
first 64 characters are user defined. Line 1 60 tries to print a row of 
@'s but ends up printing your creature because its pixel pattern is in 
the table where the @ would normally be located. 

You could continue to add to this simple program to build a 
complex game that would use your creature whenever you PRINTed 
"@" or POKEd the screen with a zero (i.e., the @'s normal screen 
POKE value). To return to the normal character set, give the direct 
command: POKE 36869,240 which will cause all your creatures to be 
transformed back to @'s. 

A Utility Program 

Program 1 is a short BASIC program for the VIC which helps with the 
designing, testing, and coding of special characters by essentially 
automating the process described above. The program has two 
operation modes: ( I ) a review mode which allows you to see how 
the current character set looks - including your custom characters, 
and (2) an editing and new-character definition mode. 

Review Mode 

When you first run Program I, you will initially be in the review 
mode and the screen will look like this: 

@ABCDEFG OPTIONS 
HIJKLMNO 

PQRSTUVW IM EW CHAR 

XYZ[£] E EDIT CHAR 

■r#$%&' QQUIT 

()*+.-./ 

01234567 

89:;< = >? 

The characters shown in the first eight rows and eight columns of 
the screen are the currently defined custom character set. Note that 
you start the program with the normal uppercase characters. As you 
redefine the characters, the new characters will be displayed in their 
appropriate place in this character table. For example, if we had 
used the utility program to create the creature in the previous example, 
it would be displayed in place of the @ sign whenever we were in 
the review mode. 

The blank in the first column of the fifth row will be red and will 
serve as a "fake" cursor. You will be able to use all normal cursor 
controls, including HOME and CLR, to position this fake cursor on 
any of the characters displayed in the character set. This fake cursor 
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will also have automatic repeat key and automatic wraparound 
features. 

To define a new special cliaracter, move tlie fal<e cursor to the 
position of the character in the normal character set you wish to 
replace. A good idea is to replace characters that are seldom used, 
so that you still have access to the more popular characters, i.e., the 
letters and digits. Once the cursor is positioned, hit "N" on the 
keyboard to define a new character in place of the one the cursor is 
on. If you are just reviewing a character that you have previously 
created and decide it needs more work, then position the cursor on 
the character and hit "E". Either "E" or "N" will shift the program 
into the EDIT mode. 

Edit Mode 

As an example, let's assume that you wanted to add serifs to the 
character "K". After placing the red cursor over the K, you would hit 
an "E" to enter the Edit mode, and the screen would look like this: 

OPTIONS 

_•__*_ 

+ ADD DOT 
-ERASE 
= UPDATE 
B BASIC 
R REVIEW 
QQUIT 

The screen shows the pixel pattern for the character K in a large 
eight-by-eight format. The cursor is "homed," but may be re- 
positioned using the cursor control keys to rest on any of the large 
pixels. Once the cursor is properly positioned, a pixel may be "turned 
on" by hitting a" + " or "turned off" by hitting a "-" sign. After you 
are satisfied with your handiwork, hit an " = " sign to put that 
character into the character set table. Then if you wish to see the 
character in its normal size and format, hit an "R" to go back to the 
Review mode. 

After the design of the special character is complete, you may 
hit a "B" to have the VIC print the BASIC code needed to add this 
character to other programs. For example, if we had used this utility 
program to design the creature used in the previous example, 
and we hit a "B". the VIC would display the following lines of BASIC 
code: 

200 READ XiFOR I =X TO X + 7:READ Y:POKE X,Y:NEXT 
210 DATA 7168, 129, 153, 102, 60, 66,66 



■ ■ ■■■ 

** 

■ ■■■■ 

* • 

■ ■ ■■■ 

* • 

* * 
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You will recognize that these lines of code are essentially 
equivalent to lines 130-140 in the previous example. IMPORTANT - 
these lines of code will work only if lines 100-120 in the previous 
example or their equivalent have already been executed. Program 2 
gives an example of how the BASIC code generated by this utility 
program might be used to incorporate a number of special characters 
(specifically, the math symbols in the Greek alphabet) into a BASIC 
program. 

A word of caution - hitting either "B" or "R" will generate 
displays based on what is actually in the character set data table. 
This may not correspond to the current large-sized pixel pattern. 
Always be sure this table is correct by updating it via the " = " 
command prior to using the "B" or "R" commands. 

Hitting a "Q" while in either the Edit or Review modes will 
cause both the memory size and the character set to be reset to their 
normal states and the program to end. 

A Few Suggestions 

If you want to use a custom pattern that is larger than just one 
character, use the utility program to design the pieces of the overall 
pattern into contiguous characters, as shown in the Review mode 
display. For example, if you want a three-across by two-down 
pattern, you could use the utility program to design the various parts 
into the character positions normally occupied by @, A, B, and H, I, 
J. Then whenever you PRINTed these characters in your BASIC 
program [in the correct configuration - of course), you would get 
your desired large custom pattern. 

If the reverse character flag is on (i.e., the character you are 
PRINTing has been preceded by a reversed "R"), the VIC will use the 
standard character set and not the custom character set. You will 
find this useful when you have already redefined various characters, 
and you want to use those same original characters on the same 
screen. You can simply PRINT those characters in reverse. This "trick" 
is used in the Review mode of the utility program to assure that the 
options are always printed properly. 

Programming Challenges 

Here are two challenges to programmers who would like to show 
they have mastered the VIC's custom character features and who 
want to write very useful programs that can be used and enjoyed by 
the growing VIC community: ( 1 ) Write a program that will draw a 
straight line (or as close to one as possible) between any two pixels 
on the VIC'S screen. (2) Write a generalized graph program that can 
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graph equations (one or more simultaneously) in high resolution by 
defining special characters - on the fly - as required by the shape of 
the equations. 



Program 1 . 

100 POKE 36879, 27: PRINT "{CLEAR} CHARACTER GEN 
ERATOR" 

110 PRINT" {02 DOWN} BY DAVID MALMBERG" 
120 REM 43064 VIA MORAGA 
130 REM FREMONT, CALIFORNIA 

140 X=PEEK (56)-2:POKE52,X:POKE56,X:POKE51,PEEK 

(55): CLR 
T50"CS= 2 5 6 * P E EK (52)+PEEK(51) 

160 FORI=CSTOCS+511:POKEI,PEEK(I+32768-CS) :NEX 
T 

170 S=7680:CL=22 

180 CR=0:LN=200:P=12:BG=3:BR=1 

190 POKE36879,BG*16+BR 

200 DEFPNA(XX)=S+R*CL+C:REM SCREEN POKE LOCATI 
ON 

210 DEFFNB(XX)=8*R+C:REM SCREEN POKE VALUE FOR 

CHARACTER 
220 GOTO580 

230 PRINT" {CLEAR} ":GOSUB810 

240 PRINT" {HOME}"; : FORI = 0TO7 : PRINT" ":N 

EXT:F=0 
250 PRINT" {HOME} ":R=0:C=0 
260 Z=FNA(0) 

270 IFF=0THENPOKEZ ,PEEK (Z) +128 :GOTO310 
280 IFZ=ZLTHEN300 

290 POKEZL,IL:POKEZL+30720,BC:ZL=Z :IL=PEEK (ZL) 

300 POKEZ,32:POKEZ+30720,2 

310 GETA$:IFA$=""THEN310 

320 IFF=0THENPOKEZ, PEEK (Z) -128 

3 30 REM CURSOR CONTROL OPTIONS 

340 IFA$="Q"THENPOKE56,PEEK(56)+2:POKE36869,24 

: PRINT" {CLEAR} " : END 

350 IFA$=" {RIGHT} "ANDC=7THENC=0 :GOTO260 

360 IFA$=" {RIGHT} "THENC=C+1:GOTO260 

370 IFA$="{LEFT} "ANDC=0THENC=7 :GOTO260 

380 IFA$="{LEFT} "THENC=C-1 :GOTO260 

390 IFA$="{DOWN} "ANDR=7THENR=0 :GOTO260 
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400 IFA$="{DOWN} "THENR=R+1:GOTO260 
410 IFA$ = "{UP} "ANDR==0THENR=7:GOTO260 
420 IFA$=" {UP} "THENR=R-1 :GOTO260 
430 IFA$="{HOME}"THEN250 
440 IFF=1THEN540 

4 50 REM DEFINE NEW CHARACTER OPTIONS 
460 IFA$="+"THENPOKEZ ,81:GOTO260 
470 IPA$="-"THENPOKEZ,46:GOTO260 
480 IFA$="="THEN680 

490 IFA$=" {CLEAR} "THEN240 
500 IFA$="R"THEN580 
510 IFA$="B"THEN770 
520 GOTO260 

5 30 REM REVIEW CHARACTER SET OPTIONS 
540 CR=FNB(0) 

5 50 IFA$="N"THENPOKE36869,240:GOTO230 

560 IFA$="E"THENPOKE36869,240:F=0:GOTO730 

570 GOTO260 

580 POKE36869,255:R=4:C=0:ZL=FNA{0) :IL=32 

590 PRINT" {CLEAR} QABCDEFG" : PRINT" HI JKLMNO" : PRI 

NT"PQRSTUVW" : PRINT"XYZ [\] T_" : F=l 
600 PRINT" ! "+CHR$ (34)+"#$%&' ":PRINT" *+,-./" 

: PRINT" 012 34 567": PRINT" 89 : ; <=>?" 
610 PRINT" { HOME} "; SPC (12) ; " {REV}OPTIONS{OFF} ": 

PRINT 

620 PRINTSPC(10) ;"{REV}N NEW CHAR{OFF}" 
630 PRINTSPC(10) ; " {REV}E EDIT CHAR{OFF}" 
640 PRINTSPC(10) ; " {REV}Q QUIT{OFF}" 
650 BC=PEEK (38400) 
660 GOTO260 

670 REM UPDATE CHARACTER DATA IN TABLE 

680 PRINT" { HOME} " ; : X=CS+8*CR : FORR=0TO7 : SM=0 : FO 

RC=0TO7:D=7-C 
690 SM=SM-2TD* (PEEK(FNA(0) )=81) :NEXTC 
700 P0KEX+R,SM:PRINTSPC(8) ;SM:NEXTR 
710 R=0:C=0:GOTO260 

7 20 REM EDIT CHARACTER FROM TABLE 

7 30 X=CS+8*CR: PRINT" {CLEAR} " : FORR=0TO7 : Y=PEEK ( 

X+R) :FORC=0TO7:Z=FNA(0) 
7 40 Q=46:Y=Y*2:IFY>255THENQ=81:Y=Y-256 
7 50 POKEZ ,Q:NEXTC,R:R=0:C=0:GOSUB810:GOTO260 
760 REM BASIC STATEMENTS TO DEFINE CHARACTER 
770 X=CS+8*CR: PRINT" {HOME} {08 DOWN}" 
780 PRINTLN; "READ X:FOR I=X TO X+7 : READ Y: PO 

KE X,Y: NEXT":LN=LN+10 
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790 PRINTLN;"DATA";X; : F0RI=XT0X+7 : PRINT" { LEFT} 

,";PEEK(I) ; :NEXTI: PRINT 
800 GOTO260 

810 PRINT" {HOME} ";SPC( 13) " {REV}OPTIONS{OFF} ":P 
RINT 

8 20 PRINTSPC(P) ;"{REV}+{OFF} ADD DOT" 
830 PRINTSPC(P) ;"{REV}-{OFF} ERASE" 
840 PRINTSPC(P) ; " {REV}={OFF} UPDATE" 
850 PRINTSPC(P) ;"{REV}B{OFF} BASIC" 
860 PRINTSPC(P) ;"{REV}R{OFF} REVIEW" 
870 PRINTSPC(P) ;"{REV}Q{OFF} QUIT" 
880 RETURN 



Program 2. 

100 POKE36879,27:PRINT"{CLEAR} VIC CHARACTER D 
EMO 

110 PRINT" {02 DOWN} BY DAVID MALMBERG 
120 REM 43064 VIA MORAGA 
130 REM FREMONT, CALIFORNIA 

140 X=PEEK (56)-2:POKE52,X:POKE56,X:POKE51,PEEK 

(55) :CLR 
150 CS=256*PEEK (52)+PEEK (51) 

160 FORI=CSTOCS+511:POKEI,PEEK(I+32768-CS) :NEXT 

170 REAbX:IFX<0THEN200 ' 

180 F0RI=XT0X+7 : READJ : POKEI , J :NEXT 

190 GOTO170 

200 PRINT" {CLEAR} QABCDEFG" : PRINT" HI JKLMNO" : PRI 

NT"PQRSTUVW" : PRINT"XYZ [\] T_" 
210 PRINT" !"+CHR$(34)+"#$%&'":PRINT" ()*+,-./" 

: PRINT" 01234567": PRINT" 89 : ; <=>?" 
220 PRINT" {HOME} "; SPC(ll) ; " {REV} OPTIONS{ OFF} ": 

PRINT 

230 PRINTSPC(ll) ;"{REV}N NORMAL{OFF}" 

240 PRINTSPC(ll) ;" {REV}L LOWER{OFF}" 

250 PRINTSPC(ll) ;" {REV}G GREEK{OFF}" 

260 PRINTSPC(ll) ;"{REV}Q QUIT{OFF}" 

270 PRINT: PRINT: PRINT 

280 GETA$:IFA$=""THEN280 

290 IFA$="N"THENPOKE36869,240 

300 IFA$="L"THENPOKE36869,242 

310 IFA$="G"THENPOKE36869,255 

320 IFA$="Q"THENPOKE36869,240:POKE56,PEEK(56)+ 
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2: END 
330 GOTO280 

340 DATA7168,24,24,36,60,102,66,66,0 
350 DATA7176,124,34,34,60,34,34,124,0 
360 DATA7184,126,34,34,32,32,32,112,0 
370 DATA7192,24,24,36,36,102,66,126,0 
380 DATA7200,126,34,32,56,32,34,126,0 
390 DATA7208, 126,70,12,24,48,98, 126,0 
400 DATA7216,102,36,36,60,36,36,102,0 
410 DATA7224,24,36,66,126,66,36,24,0 
420 DATA7232,28,8,8,8,8,8,28,0 
4 30 DATA7240,102,36,40,48,40,36,102,0 
4 40 DATA7248,24,24,60,36,36,102,102,0 
4 50 DATA7256,66,102,90,66,66,66,66,0 

4 60 DATA7 264, 66, 9 8, 8 2, 7 4, 7 0,6 6, 6 0,0 
470 DATA7272, 126, 0,36, 60, 36, 0,126,0 
480 DATA7280,24,36,66,66,66,36,24,0 
490 DATA7288,126,36,36,36,36,36,36,0 
500 DATA7296,124,34,34,60,32,32,112,0 
510 DATA7304,126,98,48,24,48,98,126,0 
520 DATA7312,62,42,8,8,8,8,28,0 

530 DATA7320,20,42,8,8,8,8,28,0 
540 DATA7328,8,28,42,42,28,8,8,0 

5 50 DATA7336,10 2,66,36,24,36,66,102,0 
560 DATA7344,42,42,42,28,8,8,28,0 
570 DATA7352,0,24,36,66,66,36,102,0 
580 DATA7360,0,0,0,0,0,0,0,0 

590 DATA7368,0,0,0,0,0,0,0,0 
600 DATA7376,0,0,0,0,0,0,0,0 
610 DATA-1 
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How To Use The 

6560 Video 
Interface Chip 

DALE GILBERT 

These are the details of the Video Interface Chip (VIC) 
which controls the video and sound effects. 

The 6560 Video Interface Chip, the VIC chip, provides low cost, high 
resolution, color video for a color monitor or a color television, and it 
also incorporates a sound generator, A/D converters [analog/digital]. 
and even a light pen feature. 

The 6560, some RAM, a crystal, a few bus drivers, and a little 
decode logic is all the hardware that is required to add color and 
sound to a microprocessor that has an expansion bus. 

The VIC capabilities include on-chip sync generation, screen grid 
size of up to 1 92 horizontal dots by 200 vertical dots, two character 
sizes, three independent programmable tone generators, a white noise 
generator, an amplitude modulator, screen centering, on-chip DMA 
address generation, and two modes of color operation. 

The 6560 VIC is manufactured by MOS Technology, Inc.. Commo- 
dore Business Machines incorporates the 6560 in its VIC-20 computer. I 
purchased my chip from Falk-Baker Associates, 382 Franklin Avenue, 
Nutley, New Jersey 071 10, for SI 4.95. 

6560 Software 

To produce colored characters, VIC addresses two blocks of memoiy at 
the same time. This address method produces 1 2 bits of data. The eight 
bit block of memory is called the Character Pointer Block (called the 
screen memory on the VIC-20). 

The second block of memory is called the Character Color Block 
(called the color nybble area on the VIC-20). This block contains 
four-bit character color data. 

VIC takes the character pointer data, left shifts it three times, and 
adds the result to the character cell base address contained in bits zero 
through three of register five. 

VIC then puts the result on the address bus which addresses 
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6560 Hardware 

The 6560 VIC has 1 4 address pins (AO-A 13) and 12 data pins (DO-Dl 1). 
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another block of memory called the Charaaer Cell Block (called character U 
bit maps on the VIC-20). This block of memory is eight bits wide. The q 
data obtained from this address is video information on a 8 x 8 character 
matrix. The matrix is eight bytes high and eight bits wide. 

VIC takes the four-bit character color data and, if the Most Significant 
Byte is zero, the character matrix will be displayed in high resolution 
mode. If the MSB is one, the character matrix will be displayed in the 
multi-color mode. 

When the high resolution mode is selected and when bit-3 of 
register-F is a zero, all one bits of the character cell data will be displayed U 
in the background color and all zero bits will be in the foreground 
color. The three remaining bits of the character color data specify the ^ 
color of the foreground. The color of the background is specified by bits v^' 
four through seven of register-F. If bit-3 of register-F is 1 , the one bits of 
the character cell data will be displayed in foreground color and the 
zero bits will be displayed in the background color. *^ 

If bit-3 of register-F is one, all the character cell matrix will have the 
same color background. If bit-3 is a zero, all the character cell matrix ^ 
will have common character colors. 

When the multicolor mode is selected (MSB of the character 
color data is one), there is a pairing of bits of the character cell data. 
The character matrix now is a 4 x 8 dot matrix with each dot's color ^ 
determined by the code of each pair. The code has four possibilities: 
00, 01, 10, 1 1. If a dot code is 00, its color is the background color 
specified by bits four through seven of register-F. If the code is 1 , <J 
the dot color is the same as the external border color specified by 
bits zero through two of register-F. If the code is ten, the dot color is 
the foreground color specified by the three bits of the character color 
data. If the code is 11, the color of the dot is specified by bits four 
through seven of register-E. 

VIC produces a TV raster of up to 22 columns by up to 23 rows 
of character matrix surrounded by a border. The base address of the 
character pointer block contains the first upper left pointer for that ^ 
character matrix. The base address plus one of the character pointer \^ 
blocks contains the pointer for the next right character matrix. It is the 
responsibility of the microprocessor unit to manipulate the pointers 
in the character pointer block of memory. A whole raster of repeated 
characters (character matrix) can be obtained byjust repeating the 
pointers in the character pointer block. 
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When the 02 clock is high, the microprocessor unit can place an 
address on the address pins and read or write data into any of the 1 6 
eight-bit registers via data pin D0-D7. VIC decodes the address pins 
and selects registers zero through F when address 1 000 through 
1 OOF (the VIC-20's VIC chip ignores the A 1 5 line) is placed on the 
address pins. 

The address pins are input pins when 02 is one; if 02 is zero, 
then these pins are output address pins. 

When the 02 clock is one, the microprocessor unit can also 
write or read data to the character pointer RAM, the character color 
RAM, and the character cell RAM. The character cell memory may be 
RAM, ROM, or both. The base address of the character cell block 
and/or the character pointer can be changed by modifying a register 
in the VIC. 

When the 02 clock is low, the VIC addresses memory in such a 
way that the character pointer RAM and the character color RAM are 
selected at the same time. VIC must receive character pointer data 
on DO through D7 and character color data on D8 through Dl 1 at 
the same time. 

The RAV pin four is an input only pin and must be driven by 
the microprocessor unit when 02 is one and held high when 01 is 
one. 

Pins 38 and 39 are the master clock inputs. The 6560 VIC 
requires a 14.31818 MHz, two phase, five volt, non-overlapping 
signals. The master clock uses a standard 1 4.3 1 8 1 8 MHz crystal (4x 
color) and the delay of 74LS gates to give a non-overlapping signal. 
Resistors RI and R2 are used to give extra pull up to CMOS levels. 
CMOS gates don't seem fast enough for this clock. 

Pins 35 and 36 are the system output clock used for system 
timing and driving the clock of the 6512 microprocessor unit (if 
used). A 6502 microprocessor unit can be used by feeding pin 36 to 
the 00 IN pin on the 6502. Removing the original 00 signal and 
wiring this new 00 is the only alteration needed on the mother 
microprocessor unit. 

Because the 6502 address lines are active when 01 is 1, the 
expansion address lines to the VIC and its associated memory must 
be isolated from the microprocessor unit bus during this time. 

The data bus should also be buffered and gated for this same 
reason. 

The system clocks are five volt, non-overlapping, 1 .02 MHz 
signals. 

Pin 1 9 provides the sound output which must be fed to an 
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amplifier to drive a speaker. The output impedence is approximately 
1000 ohms. 

Pin 3 is the output pin for the composite sync and the luminance 
signal. This pin is an open drain which makes it easy to shift to the 
needed voltage level for a RF modulator, TV first video amplifier, or a 
black and white CRT monitor. 

In the following wiring diagram, diodes K3, K4, K5, and K6; 
resistors R5, R6, and R7; and CI make up the level shifter for a TV 
output or video monitor output. 

The VIC is a superior CRT controller for a BAV monitor due to 
the varying levels of luminance required for a color picture. VIC can 
produce varying shades of gray. 

Pin 2 provides the composite color signal. This signal contains 
the color phase and amplitude information plus the 3.58 MHz burst 
signal. Pin 2 is a high impedence output buffer which can 
be applied to the first chroma amplifier of a TV, color monitor, or 
RF modulator. 

Pins 1 7 and 18 are the input pins for the Pot-X and Pot-Y analog 
to digital converters. A pot is used to charge an external capacitor 
tied to the pot wiper and fed to pin 1 7 or 1 8. These pins are sys- 
tematically pulled to ground after each charge voltage reading. The 
voltage is digitized and deposited in register 8 or 9. 

Pin 37 is the light gun/pen pin. The voltage of triggering is 
approximately 2.5 volts on the falling edge. Holding this pin low 
clears registers 6 and 7. The values of registers 6 and 7 represent the 
horizontal and vertical positions of the current dot being scanned. 
The light gun/pen option is only available on a 6560-101, which is 
sometimes identified by a white dot on the case of the IC. 

Address decoding must be provided so that the character color 
nybble RAM will be selected when the character pointer RAM is 
addressed by the VIC, but not selected when the microprocessor 
unit addresses the character pointer RAM. A data bus transceiver 
must be provided to isolate the nybble bus from the byte bus along 
with the logic for this transceiver. The logic must enable the 
microprocessor unit to read or write to the nybble bus when the 02 
clock is one. 

The expansion 02 may be used as the E(02) if the expansion 02 
has no more than one LS gate delay and it is the true microprocessor 
unit 02. If these provisions can't be met, connect E(02) to the V02 
(pin 36). 

This author used addresses 1 000 through 1 OOF for the VIC; 2000 
through 23FF for the character pointer block; 2400 through 27FF for 
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the character color block; and 2800 through 2BFF for the character 
cell block. 

The addition of a 6560, a few RAM chips, and a few gates will 
free up and complement many a microprocessor unit. 



Figure 1 . 
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Figure 2. VIC Control Registers 
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1001 


R2 


Cp 
A9 


No. of Character Matrix Columns 
6 5 4 3 2 1 


1002 


R3 


RV 



No. of Cliaracter IMatrix Rows 
5 4 3 2 1 


1 =o 
= S 


1003 


R4 


8 


Raster Value 
7 6 5 4 3 


2 


1 


1004 


R5 


Base Cp 
A13 A12 All A10 


Base Char. Cell 
A13 A12 All A10 


1005 


R6 


7 


LP l4orizontal Position 
6 5 4 3 2 1 





1006 


R7 


7 


LP Vertical Position 
6 5 4 3 2 1 





1007 


R8 


7 


Pot-X 

6 5 4 3 2 


1 





1008 


R9 


7 


Pot-Y 
6 5 4 3 2 


1 





1009 


RA 


Sw 
1 =On 


Frequency Osc. -1 
6 5 4 3 2 1 





100A 


RB 


Sw 

t=On 


Frequency Osc. -2 
6 5 4 3 2 1 





100B 


RC 


Sw 
1 =On 


Frequency Osc. -3 
6 5 4 3 2 1 





100C 


RD 


Sw 

1 =On 


Frequency Noise Gen. 
6 5 4 3 2 1 





100D 


RE 


Auxiliary Code 
3 2 10 


Audio Amplitude 
3 2 10 


100E 


RF 


Baclcground Code 
3 2 10 


1 = B 
= F 


Border Code 
2 1 


100F 



Abbreviations: 

I = Interlace 
N = None Interlace 
CP = Character Pointer 
Base Address 



R = Raster 
V= Value 
S = 8x8 IMatrix 
D = 16x8 Matrix 



B = Common Background 
F = Common Foreground 
LP = Light Pen 
Sw = Switch 



Color Code 
Auxiliary/Background/Border/Foreground 

BLACK 6 BLUE C LIGHT MAGENTA 

1 WHITE 7 YELLOW D LIGHTGREEN 

2 RED 8 ORANGE E LIGHT BLUE 

3 CYAN 9 LIGHT ORANGE F LIGHT YELLOW 

4 MAGENTA A PINK 

5 GREEN BLIGHT CYAN 
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BroMSfsmg 
The VIC Chip 

JIM BUTTERFIELD 



An introduction, witii experiments, to some of tiie 
dramatic effects you can achieve by changing the con- 
dition of your computer's VIC chip. 

The computer is called VIC, for Video Interface Computer ... but 
there's a chip inside which is also called VIC, for Video Interface 
Chip. The chip bears the number 6560 or 6561 ; it's used to make 
good things happen on your television screen. 

Beginners often don't realize that memory addresses are used 
for more than memory storage. In the VIC computer, addresses 
36864 to 36879 may be PEEKed or POKEd. These locations are not 
used for memory - they hold controlling information for the VIC 
chip. We're going to look through those addresses, experimenting 
as we go. We may learn some new things about our computer. 

• Location 36864 (Hex 9000). Values to 1 27 set the position 
of the left border on your screen. The usual value is five. Try the fol- 
lowing quick "slide change" line: 

FOR J = 5 TO 30:POKE 36864,J:NEXT JiFOR J = 30 TO 5 
STEP -1 .-POKE 36864,J:NEXT J 

If you add 1 28 to the value in 36864, the screen will go into 
interlace mode. In most cases, all you'll notice if you POKE 36864,133 
is a little "dither" in the screen detail. However, a few television sets 
are built in such a way that they won't work unless you set interlace 
mode with this POKE. 

• Location 36865 (Hex 900 1 ). Values to 255 set the position 
of the top border on your screen. The usual value is 25. Try making 

the screen "curtsey" with: 

FOR J = 25 TO 45:POKE 36865,J:NEXT J:FOR J = 45 TO 25 
STEP -1 :POKE 36865,J:NEXT J 

• Location 36866 (Hex 9002). Part of this location tells the 

chip how many columns on the screen. This will always be 22. But 
there's an extra - a value of 128 may be added to set "alternate 
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screen" mode. Normally, the 128 is added in, and you'll find 150 ^ 

stored in this location. If you want to go to an alternate screen, 

remove the 1 28 element with POKE 36866,22 and the screen will 

now take its information from a new area. There are quite a few ^ 

things you need to do if you wish to play with this - see "Alternate 

Screens" reprinted in this book. 

• Location 36867 (Hex 9003) is a busy one. In fact, it's 
always changing. Try typing ?PEEK(36867) several times and you'll 
see that you get different values - sometimes 46, sometimes 1 74. 
Let's ignore that extra 1 28 for the moment; we'll deal with it again 
when we describe the following location. 

The basic value held in this location, normally 46, is the number ^ 
of rows on the screen multiplied by two (23 rows, right?). You won't \j 
want to change this one. 

There's one more thing hidden in this location, and it's important. 
If you add one to the value, the character generator will switch to 
"double character mode." This means that each character you type 
will occupy double the usual screen space. ^ 

This won't work automatically, however. If we want to draw ^ 
characters that are twice as big, we must supply the VIC with 
"pictures" of the new characters; the old pictures won't do since ^ 
they are not big enough to fill the new space. So prepare for a little ^ 
confusion when you try this next experiment. Strange things will 
happen because we haven't built and connected up new character 
tables. \^ 

Type POKE 36867,47. The screen will go rather strange. Don't 
worry about it for the moment; just press the screen clear key (shifted, 
of course). The screen will clear, although the cursor looks rather 
odd. Not to worry, we'll forge right ahead. 

The first character in the VIC's table of characters is the "@" ^ 
symbol; the next is an "A," and then a "B" and so on. Now, type the 
@ key. Instead of getting the first character, we get the first two, one 
above the other. Try typing the "A" and you'll get B-over-C, the next 
two characters in the list. ^ 

What's happening here? Each character you type is filling 
double its normal screen area. In doing so, it's grabbing twice as ^ 
much information from the "character picture" table... and, since 
that table hasn't been changed, that means two characters. Since 
the VIC knows (or at least thinks) that the character pictures are ^ 
twice as big, it reaches further into that table for each character that 
it needs. 

When you decide to use this feature, you'll write your own ^ 
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character picture tables and everything wili sort itself out. This 
feature Is likely to be used most for high-resolution graphics. The 
elements of the character picture table will control individual dots, or 
pixels, on the screen. 

You may bring your VIC back to normal by typing POKE 36867,46 
but you 'II need to type blind since the screen isn't much help. You 
might prefer to turn the computer off for a moment; when you turn 
it on again, everything will be back as it was. 

• Location 36868 (Hex 9004). This location changes con- 
tinuously. It's connected with the high-bit (128 value) in the previous 

location. In principle, it tells you precisely where on the screen the 
picture is being drawn at this instant, in practice, it's not much use to 
BASIC programmers - by the time you read it, a different part of the 
screen will be active. 

• Location 36869 (Hex 9005). This is a very important 
address. It controls the location of two tables: the table where screen 
characters are held, and the table which holds the character pictures. 
Let's take them one at a time. 

The screen table holds the 500 or so characters that are displayed 
on the screen. It's quite a job to calculate the screen address; let's 
take a shot at it. 

Take the contents of location 36869, divide by 1 6, and throw 
away the remainder. That should give you a number from eight to 

15. Subtract eight and double it, giving an even number from zero to 
1 4. Now: if the contents of 36866 are 1 28 or greater, add one to get 
a value from zero to 1 5. Multiply the result by 5 1 2. At this point you 
should have a value from zero to 7680. That's where your screen 
table is located; it will normally be at location 7680, but it might 
move if you add extra memory. 

That's quite a calculation; some of the things it implies deserve 
a separate article. For the moment, let's observe that the screen table 
address must always be in the range of zero to 7680, and must be a 
multiple of 512. If you wish to set up your own screen table withiri 
this range, do the calculation in reverse: divide by 5 1 2, subtracting 
one if odd, dividing by two, adding eight, and, finally, multiplying by 

16. Whew! We can see that the "alternate screen" bit (128 value) in 
36866 is really part of the much larger screen address. 

The character picture table address is also defined in this 
location. We'd need to change this if we wanted to define our own 
characters, single or double. Of course, we'd also need to define 
character pictures for all characters we wished to print. The compu- 



181 



CHAPTER FIVE 



tation of the address is complex. 

Take the contents of location 36869 and divide by 1 6. Now take 
the remainder - not the quotient - and, if it's greater than seven, 
subtract eight. On the other hand, if the remainder is not greater 
than seven, add 32. By this time, you'll have an adjusted remainder 
which is either less than seven or between 32 and 39. Multiply this 
value by 1 024 and you've found your character picture table address. 
It will be in the range of either zero to 7 1 68 or 32768 (the normal 
value) to 39936, and will be an exact multiple of 1024. If you wish to 
set up your own character picture table, you'll usually want it to 
point to a RAM address in the range of zero to 7 1 68. In such a case, 
you'd reverse the calculation: take the address, divide by 1024 and 
add eight and you're there. 

Don't forget that the screen table address and the character 
picture address are packed together into this location. You'll need to 
set them both at the same time. By the way, the official name for the 
two tables are the "Video Matrix" and the "Character Cell Table." 

Feel free to play with this location; POKE values as you wish. 
But, unless you plan carefully, all you'll get is a crazy screen. 

This was a tough one ... now we can try some easier locations. 

• Locations 36870 to 36871 (Hex 9006 and 9007). Here's 
your input from a light pen. No, a light pen isn't a ballpoint that 
weighs less than half an ounce - it isn't a pen at all. It's a device that 
looks like a pen, that plugs into your VIC. Point it at the screen, and 
these locations will tell you where you are pointing. 

It is expected that Commodore will manufacture its own light 
pen soon. Many light pens have either a button or a spring-loaded 
switch in the tip which signals whenever the light pen operator 
wants attention. The switch is implemented in the VIC computer, 
but is not connected to the VIC chip (you'll find it mixed in with 
other things in location 37151). 

You can read the X and Y positions of the light pen in locations 
36870 and 36871 respectively. You won't read row and column 
values: the numbers will vary between zero and 255, and you'll 
need to do some calibration for the particular model of light pen that 
you have fitted. 

Watch for "jitter" on these values. Even though the light pen 
doesn't move, the readings may jump about a little on successive 
readings. Depending on what you 're doing, you may wish to use an 
averaging technique to make the readings smoother. Another 
method is called "hysteresis"; in simple terms, it means that a value 
is ignored unless it differs from previous readings by more than a 
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given threshold amount. 

• Locations 36872 to 36873 (Hex 9008 and 9009). These 
are paddle input values. Two paddles, such as Atari paddies, may be 
connected and their values read here. You may not be able to track 
the full range of rotation of the paddles. 

Once again, watch forjitter on the input values here. 

To keep the record straight, a joystick can also be connected to 
the VIC ... but the position of its button is not detected by the VIC 
chip. It arrives in other locations (37151 and 37152). 

• Locations 36874 to 36876 (Hex 900A to 900C). These are 
VIC'S voices. Setting a value of 1 28 or higher into any of these locations 
produces sound; the value you POKE produces the pitch. By POKEing 
two or three locations, you can produce harmony. All voices are 
controlled by the sound level which is set at address 36878; try POKE 
36878, 1 5 before you play with the voices so that you'll get good 
volume. A value of less than 1 28 in any of the voice locations makes 
that voice silent. 

It's interesting to note that the voice controlled by 36874 is the 
softest, and the voice at 36876 is the sharpest. So you'd use 36876 to 
carry the melody, and the two other voices as the sidemen. 

• Location 36877 (Hex 900D). This is similar to the music 
voices, except that it generates noise. A value of 1 28 or more produces 
noise. The higher the value, the higher the pitch of the noise (from^ 
growl to hiss). Once again, this is controlled by the sound level of* 
36878. 

• Location 36878 (Hex 900E). If the number in here is less , 
than 16, it represents the sound amplitude (see the four previous 
locations). If it's 16 or more, an extra factor is at work: multi-color. 

Normally, each character position on the VIC contains only two 
colors: background and foreground. If we decide to use multi-color, 
we can add an extra two colors to each character: the border color 
plus one more that we may select. We select this color in the high 
part of location 36878. If you divide the contents of this location by 
1 6, discarding the remainder, you'll get the designation of the 
"auxiliary color." 

Interestingly, each character on VIC's screen is independently 
selected as two-color or multi-color, allowing us to have a mixed 
screen. This is done in the color nybble table which sets each 
character's color. Try the following: Clear the screen and type the 
letter A in the upper left-hand corner. Now go to a new line and 
type POKE 38400,8. You'll see that the letter A has suddenly turned 
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weird and multi-colored, but the rest of the screen is unchanged. 
Notice that we did not POKE the VIC chip, but an entirely different 
memory location that is keyed to the one screen address. To do the 
job properly, you'll need to define your own character pictures. 

• Location 36879 (Hex 900F). The last location in the VIC 
chip, but a busy one. Let's break it down into its three elements. 

Divide the contents of this location by 1 6, and note the result as 
"Screen Background Color." Now take the remainder; if it's eight or 
more, subtract and note: Foreground/Background = ON. The 
remaining value of zero to seven can be labelled "Frame Color." 

The Frame Color is a favorite of mine; it's an easy signal to the 
user of some situation I want to tell him about without affecting the 
contents of the screen itself. If there's a danger, an error, or a game 
explosion, I can flip the border to red with POKE 36879,26 and later 
restore it with POKE 36879,27. Another example: rather than typing a 
PLEASE WAIT message, I might walk the border through a range of 
colors so that the user can tell something is happening. 

Screen Background color can be a very nice psychological 
support. If you set up a system so that accounts receivable can be 
done on one background color and accounts payable on a different 
one, the user can be "keyed" to recognize that he's in the right 
program. It's a little like decorating each floor of a building in a 
different color so that people won't get the wrong one. Try combi- 
nations such as POKE 36879, 155 and see how you like the effect. 

Now for the Foreground/Background business. Normally 
(F/B = On) we know that we can type characters of many colors on 
a single color background. Sometimes, it can be very handy to do 
the opposite; in other words, we want to type single color characters 
on a background whose color may vary from character to character. 

Try POKE 36879, 1 9. Now clear the screen and type a few 
characters. Change the color and type some more. Do you see 
what's happening? You are changing the color of the background, 
not the color of the characters themselves. 

By playing around with these locations, you can discover 
potential that you never knew existed. Once you know it's there, 
you can then exploit it for your own special effects. 

There's a rich variety of controls and information available in the 
VIC chip. You may not need to use them all - but isn't it fascinating 
to play around? 
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VIC 6560 Chip 



$9000 


Inter- 
lace 


Left Margin ( = 5) 


36864 


$9001 


TopMargin( = 25) 


36865 


$9002 


Scrn Ad 
bit 9 


# Columns (=22) 


36866 


$9003 


bitO 


# Rows ( = 23) 


Double 
Char 


36867 


$9004 




Input Raster Value: bits 8-1 




36868 


$9005 


Screen Address 
bits 13-10 


Character Address 
bits 13-10 


36869 


$9006 
$9007 


Light Pen input 


Horizontal 
Vertical 




36870 
36871 


$9008 
$9009 


Paddle Inputs 


X 
Y 






36872 
36873 


$900A 


ON 




Voice 1 






36874 


$900B 
$900C 


ON 
ON 




Voice 2 

Frequency 

Voice 3 




36875 
36876 


S900D 


ON 




Noise 






36877 


$900E 


Multi-Coior Mode ( = 0) 


Sound Amplitude 


36878 


$900F 


Screen Background Color 


Foregnd 
/Bacicg 


Frame Color 


36879 
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VIC Memory — 
The Uncharted 
Adventure 

DAVID BARRON / MICHAEL KLEINERT 

All computer enthusiasts have at one time or another 
wondered about all the unexposed memory locations 
of their computers. These can range from locations 
which disable the RUN/STOP key to disabling the entire 
keyboard. Here's a short list of useful memory 
locations. 

Location: 650 Normal Value: 

As you already know, the two cursor control keys, the INSERT/DELETE 

key, and the SPACE BAR automatically repeat. By POKEing different 
values into location 650, you can change this function. 

POKE 650,1 00: Disables repeat of ail keys. 
POKE 650,255: Enables repeat of all keys. 
POKE 650,0: Restores keyboard to normal operation. 

Location: 808 IMormal Value: 112 

This is one of the most confusing locations we stumbled across. 
Many values POKEd into this location may cause an adverse effect 
in the computer's operation and may result in a serious crash. 

POKE 808,1 00: Disables RUN/STOP and RESTORE keys. 
POKE 808,1 12: Returns to normal. 

Warning: POKEing 808, 1 00 also changes the appearance of the 
program listing, but the program will still run normally. 

Location: 649 Normal Value: 10 

This location controls the number of characters that may be stored in 
the keyboard buffer. For example, POKEing 649,5 will allow only five 
characters to be stored in the buffer. 

POKE 649,0: Totally disables keyboard. 
POKE 649, 1 0: Restores keyboard to normal. 
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Whenever characters are typed into the computer, they first 
must pass through the i<eyboarcl buffer before they register. This 
buffer will normally store up to ten characters. If it is set to zero, the 
butrer will store zero characters. If no characters are stored in the 
buffer none will pass into the computer. 

Location: 1 98 Normal Value: 0-10 

This location determines the number of characters presently in the 
keyboard buffer. If it is set to zero, the keyboard buffer will be 
emptied. Using zero before a GET statement will keep unwanted 
information from being entered. 

POKE 198,0: Clears keyboard buffer. 

No need to restore to normal. 

JLocation: 3688 1 Normal Value: 24 

iThis location can be used to position the entire screen workspace. 
The values to be POKEd range from to 255. Increasing or decreasing 
the current value by one causes a very small amount of movement. 
This can be used to create very smooth animation. A very nice effect 
is to scroll up a display seemingly from nowhere. A short example of 
this is demonstrated in Program I. 

POKE 36881 ,X (where X is greater than 24): 

Moves entire screen down. 
POKE 36881, X (where X is less than 24): 

Moves entire screen up. 
POKE 36881,24: Resets screen to normal position. 

Location: 36883 Normal Value: 46 

In addition to being able to position the entire screen vertically, you 
may also control hovv many lines of text are visible. It is controlled by 
POKEing even-numbered values from to 46. If an odd number is 
POKEd, the computer will react strangely, but can easily be reset by 
using the RUN/STOP and RESTORE keys. Unlike location 36881, 
location 36883 works line by line. Every time location 36883 is 
increased or decreased by two, the amount of visible screen work- 
space changes by one line. 

POKE 36883,X (where X is less than 46): 

Decreases amount of visible screen workspace. 
POKE 36883,46: Restores screen to normal. 



187 



u 

CHAPTE R FIVE ^ 

w 

10 A=36881:POKE A-3,15 

20 POKE A, 128: REM REPOSITIONS WORKSPACE SO I ^ 

T IS NOT VISIBLE 
30 PRINT" {CLEAR} {10 DOWN} {05 RIGHT} {GRN}DISPL 

AY DEMO" ^ 
40 PRINT" {05 RIGHT} {RED} EEEEEEEEEEEE 
50 FOR T=128 TO 24 STEP-1: REM LOOP TO MOVE T 

HE SCREEN UP O 
55 POKE A,T:POKE A-5,256-T 

60 FOR P=l TO 10:NEXT P:NEXT : REM DELAY TO S ^ 
LOW MOVEMENT ^ 

65 FOR T=l TO 600:NEXT:REM WAITS SEVERAL SEC 

ONDS ^ 

7 FOR T=46 TO STEP-2:REM LOOP TO REDUCE VI 

SIBLE WORKSPACE ^ 
75 POKEA+2,T:POKEA-5,128+2*T:FORP=1TO40:NEXTP,T ^ 

8 PRINT "{CLEAR} {06 DOWN} {09 RIGHT} "; CHR$ ( 14 

4) ;"B{DOWN}Y{02 DOWN}" ^ 
90 PRINT TAB{3) ;"{REV}MICHAEL KLEINERT vj 
100 PRINTTAB(9);"{D0WN}{GRN}AND 

110 PRINTTAB(5) ;"{DOWN}{BLU}DAVID BARRON ^ 
120 FOR T=0 TO 46 STEP 2: REM INCREASES AMOUNT ~ ^ 

OF VISIBLE WORKSPACE 
125 POKE A+2,T:P0KE A-5 , 128+2*T : FOR P=l TO 40: O 

NEXT P,T 

130 FOR P=l TO 700:NEXT ^ 
140 POKE A-5,0:POKE A-3,0 ^ 
150 FOR P=l TO 5000 :NEXT:PRINT"{BLU} {CLEAR} 
999 END W 

U 

o 

u 
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Memory Map 
Above Page 



JIM BUTTERFIELD 



Memory Map 








0100- 


.103E 


256 


-318 


Tape error log 




0100- 


■01 FF 


256 


-51 1 


Processor stack area 




0200- 


■0258 


512 


-600 


BASIC input buffer 




0259- 


■0262 


601 


-610 


Logical file table 




0263- 


■026 C 


611 


-620 


Device if^ table 




026D- 


■ 0276 


621 


-630 


Sec Adds table 




0277- 


■0280 


631 


-640 


Keybd buffer 




0285 




645 




Serial bus timeout flag 




0286 




646 




Current color code 




0287 




647 




Color under cursor 




0288 




648 




Screen memory page 




0289 




649 




Max size of keybd buffer 




028a 




650 




Repeat all keys 




028B 




651 




Repeat speed counter 




028c 




552 




Repeat delay counter 




02oD 




053 




Keyboard Shift/Control fl 


ag 










Last shift pattern 


02 8 F- 


0290 


655 


-656 


Keyboard table setup pointer 


0291 




657 




Keymode (Kattacanna) 




0292 




658 




Osscroll enable 




0293 




659 




VIC chip control 




029** 




660 




VIC chip command 




0295- 


0296 


661. 


-662 


Bit timing 




0297 




663 




RS-232 status 




0298 




664 




# bits to send 




0299- 


029A 


665 




RS-232 speed/code 




029B 




667 




RS232 receive pointer 




029C 




668 




RS232 input pointer 




029D 




669 




RS232 transmit pointer 




029E 




670 




RS232 output pointer 




029F- 


02 AO 


671 


-672 


IRQ save during tape I/O 




0300- 


0301 


768 


-769 


Error message link 




0302- 


0303 


770 


-771 


BASIC warm start link 




0304- 


0305 


772 


-773 


Crunch BASIC tokens link 




0306- 


0307 


774. 


-775 


Print tokens link 




0308- 


0309 


776. 


-777 


Start new BASIC code link 




030A- 


03 OB 


778. 


-779 


Get arithmetic element link 


0314- 


0315 


788. 


-789 


Hardware interrupt vector 


(EABF) 


0316- 


0317 


790. 


■791 


Break Interrupt vector 


(FED2) 
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0318- 
03U- 
031C- 
031E- 
0320- 
0322- 
032.M- 
0326- 
0328- 
032A- 
032C- 
032E- 
0330- 
0332- 
033C. 
0400- 
1000- 
2000- 
8000- 
9000- 
91 10- 
9400- 
9600- 
AOOO- 
COOO- 



0319 
03 IB 
031D 
031F 
0321 
0323 
0325 
0327 
0329 
032B 
032D 
032F 
•0331 
•0333 
.03FB 

■ OFFF 

■ 1FFF 
•TFFF 
.8FFF 

• 90 OF 

• 91 2F 
■95FF 

• 97FF 
•BFFF 
•FFFF 



792- 
794- 
796- 
798- 
800- 
802- 
804- 
806- 
808- 
810- 
812- 
814- 
816- 
818- 
828- 
1024- 
4096. 
8192- 
32768^ 
36864. 
37136. 
37888- 
38400- 
40960- 
49152- 



793 NMI interrupt vector 

795 OPEN vector 

797 CLOSE vector 

799 Set-input vector 

801 Set-output vector 

803 Restore I/O vector 

805 INPUT vector 

807 Output vector 

809 Test-STOP vector 

81 1 GET vector 

■813 Abort I/O vector 

•815 USR vector 

■817 LOAD link 

■ 819 SAVE link 

• 1019 Cassette buffer 

•4095 3K RAM expansion area 

•8191 Normal BASIC memory 

•32767 Memory expansion area 

•36863 Character bit maps 

•36879 Video Interface Chip 

•37167 6522 Interface Chips 

•38399 Alternate Colour Nybbl 

•3a91 1 Main Colour Nybble are 

-49151 Plug-in ROM area 

•65535 ROM: BASIC and Operati 



(FEAD) 
(F40A) 
(F34A) 
(F2C7) 
(F309) 
(F3F3) 
(F20E) 
(F27A) 
(F770) 
(F1F5) 
(F3EF) 
(FED2) 
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VIC Usage: The 6522-A 



S9110 


RS-232 


or Parallel User Port 








$9111 


unused — see 


$91 IF 










$9112 


DDRB|fOr $9110) 


19113 


DDRAffor $91 IF) 


$9114 


Tl-L 


RS-232 Send speed; 






$9115 


TI-H 


Tape write timing 






$9116 


Tt Latch 












$9117 


T1 Latch 












$9118 


T2-L 


RS-232 










$9119 


T2-H 




Input timing 






$911 A 


Shift Register (not used) . 


$91 IB 


T1 Control 


T2C 


SR Control 


PBLE 


PALE 


$91 1C 


RS-232 Send 


Cbl 
cent 


Tape motor 


CAI 
cont 


$91 ID 
$91 IE 


NMI: 


Tl 


T2 


CB1: 
RS-232 
IN 




CAI: 
RSTR 
butn 




$91 IF 


ATN 
out 


Tape 
sens 


Joystick - 
Butn 


1 2 


In; 
Sen 


In: 
Clok 



37136 
37137 
37138 
37139 
37140 
37141 
37142 

37143 
37144 

37145 
37146 
37147 
37148 

37149 
37150 

37151 
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VIC Usage: The 6522-B 



$9120 

$9121 
$9122 
$9123 
$9124 

$9125 

$9126 

$9127 
$9128 
$9129 
$91 2A 
$91 2B 
$91 2C 

$91 2D 

$91 2E 
$91 2F 



RS232in ■ 

Joy 3; 



■Tape; 
■ out ; 
■ Keyboard Row Select ■ 



Keyboard Row Input 



DDRB|for $9120) 



DDRA (for $9121) 



_T1-L 
T1-H 
T1 Latch 
T1 Latch 



Cassette tape read; 
Keyboard (interrupt) 
timing 



T2-L Serial Bus timeout; 
T2-H Cassette R/W timing 



Shift Register (unused) 



T1 Control T2C 



Serial bus out 



IRQ: 



T1 



T2 



SR Control PBLE PALE 



Clocic line out 



CA1: 
Tape 



CA1 
ContI 



unused — see $9121 



37152 

37153 
37154 
37155 
37156 

37157 

37158 

37159 
37160 
37161 
37162 
37163 
37164 

37165 

37166 
37167 



VIC Usage: The 6560 Video Interface Chip 



S9000 


Inter- 
lace |0| 


Left Margin 


( = S) 






36864 


$9001 


Top Margin (=25) 


36865 


$9002 


Sc. Adds 
b9 


# Columns 


(=22) 






36866 


$9003 


bO 


#Rows ( = 


= 23) 




Double 

Char 


36867 


$9004 




Raster Value In: 68-b1 




36868 


$9005 


Screen Address 
bl3-b10 


Character Address 
b13-b10 


36869 


$9006 


Light Pen 


Horizontal 




36870 


$9007 


(option) 


Vertical 






36872 


$9008 


Potentiometer 


X 






36872 


$9009 


Sense (option) 


Y 






36874 


$900A 


A Voice 1 


36874 


$900B 


A Voice 2 


36875 


$900C 


A Voice 3 


36876 


$900D 


A Noise 


36877 


$900E 


Multl-Colour Mode 


Sound Amplitude 


36878 




( 


=0) 










$900F 


Screen Background 


Fore/Bach 
-Ground 


Frame 
Colour 


36879 



Values, where shown, are the normal default VIC values. 

Light Pen and Potentiometer are Implemented In hardware but not used 
In ROM programs. 
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TINYMONI: 

A Simple Monitor 
For Tlie ViC 



JIM BUTTERFIELD 



O TINYMON 1 is a full-featured machine language monitor. 

It lets you edit, enter, run, save, and load machine 
language programs - all this in only 760 bytes of 
O memory. 



^ One of the things you may miss on the ViC is a machine language 

monitor; it's not there. 

1^ Commodore will be releasing a very powerful monitor on a 

plug-in cartridge, and serious programmers will certainly want 
to use it. But for occasional use, a tape-loadable monitor might be 

O very handy. 

^ Here's an early version that may be of use. It should fit on any 

VIC, with or without extra memory added; and it honors all the 
commands from the built-in monitors we l<now from PET/CBM 
usage. One minor syntax change; the two addresses of the Memory 
display command (.M) should be separated by a space rather than a 

O comma. 

^ It's not really practical to type TINYMON 1 directly into a VIC. 

DATA statements in decimal would take up more room than is 
O available in small VICs; and hex entry would need a monitor to be in 

^ place already. So I've prepared the program so that it can be entered 

on a PET and saved on tape. After it's been created once, the VIC 
O can make its own copies. You'll need a PET with Upgrade ROM or 

^ 4.0 ROM to do the job, since the Original ROM PETs don't have a 

machine language monitor and things would get too complicated 
1^ (another article reprinted in this book shows how to enter TINYMON I 

^ directly into a VIC if you lack access to a PET). 

TINYMON 1 loads like a BASIC program, and copies can be 
made with a simple LOAD and SAVE sequence as you would do 
with BASIC. When you load TINYMON! and say RUN, however, 
some interesting things happen ... the monitor system is repacked 
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into the top of memory, and it will stay there until you turn the 
power off. You can say .X to return to BASIC and load and run BASIC 
programs, providing they are not too big. TINYMONl grabs about 
760 bytes of memory, so you lose a little space. 

Find A Zero 

Once you're back in BASIC, the question arises: how can you invoke 
TINYMON 1 when desired? Not an easy trick, since memory is more 
mobile in the VIC than in the PET/CBM. The thing to do is to find a 
zero value in memory and SYS to that location. If you have a basic 
(5K) VIC, SYS 4096 is safe. The sure way is to PEEK first and ensure 
that there's a zero there (location 10 is often zero). 

TINYMONl must be considered preliminary. It was designed 
with two major considerations: to use minimum space, and to 
automatically load into any VIC regardless of the memory fitted. The 
space consideration is fairly obvious: with 3500-odd bytes available 
on a small VIC, you want to use up as little as possible. The automatic 
load feature was tricky to implement; VIC may relocate programs as 
it loads. What's more, the screen area tends to move around as you 
add memory. 

I scratched my head over the .S (Save) command. If VIC auto- 
matically relocates programs during loading, will a SAVEd machine 
language program be safe? As it turns out, VIC has a new tape 
format available - when a tape is written, it may be defined as 
"absolute" and will not relocate when it loads. This seems the best 
compromise, but it has one drawback - the PET/CBM won't load 
this type of tape. Perhaps that's a design decision that will need to 
be revised... 

Finding Space in Zero Page 

VIC is desperately short of zero page space; machine language 
programmers will have to cope with the shortage as best they can. I 
have used the same locations that the big Commodore monitor is 
expected to use. There's a difference, however: the Commodore 
job will swap out selected parts of zero page and put them back 
later; I didn't want to give up the space for that kind of luxury. As a 
result, you may be annoyed by some locations that are disturbed by 
TINYMONl. 

For those unfamiliar with the PET/CBM machine language 

monitor, the commands are: 

.R - display 6502 registers; 

Users can use screen editing to type over a display and change 
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the registers; 

.M FFFF TTTT- display memory (from ... to); 

Users can use screen editing to type over a display and change 

memory; 

JC - exit to BASIC; 

It may be wise to type CLR in BASIC after exiting; 

.G AAAA- GOTO (execute) address; 

.S "PPPP",01 ,FFFF,TTTT- Save (program-name, device, 
from, to); 

.L "PPPP" - Load (program-name) 

There's a delicate tradeoff between features and memory space. 
There will undoubtedly be other small monitors with a different 
balance. In any case, I wrote one because I had nothing ... and 
others in the same position will undoubtedly greet TINYMON 1 with 
glad cries. 



Program 1 . TINYMON 1 . 

Enter on a PET/CBM, using the machine language monitor. Do not 
try to RUN, but follow your entry with the checksum program. 
Program 2. 

First, make the following change: 





• 


: 0028 


01 


04 


14 


08 


14 


08 


14 


08 


D 


Now, enter TINYIVION 


1: 
















: 0400 


00 


18 


04 


64 


00 


99 


22 


93 


n 




: 0408 


11 


11 


12 


ID 


ID 


ID 


20 


54 






: 0410 


49 


4E 


59 


4D 


4F 


4E 


20 


00 


r\ 




: 0418 


31 


04 


6E 


00 


99 


22 


11 


20 


n 




: 0420 


4A 


49 


4D 


20 


42 


55 


54 


54 






: 0428 


45 


52 


46 


49 


45 


4C 


44 


22 




: 0430 


00 


4C 


04 


78 


00 


9B 


28 


C2 






: 0438 


28 


34 


33 


29 


AA 


32 


35 


36 


r\ 




0440 


AC 


C2 


28 


34 


34 


29 


AA 


30 




0448 


37 


38 


29 


00 


00 


00 


EA 


EA 






0450 


A5 


2D 


85 


22 


A5 


2E 


85 


23 






0458 


A5 


37 


85 


24 


A5 


38 


85 


25 




0460 


A0 


00 


A5 


22 


D0 


02 


C6 


23 
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0468 C6 22 Bl 22 D0 3C A5 22 
0470 D0 02 C6 23 C6 22 Bl 22 
0478 F0 21 85 26 A5 22 D0 02 
0480 C6 23 C6 22 Bl 22 18 65 
0488 24 AA A5 26 65 25 48 A5 
0490 37 D0 02 C6 38 C6 37 68 
0498 91 37 8A 48 A5 37 D0 02 
04A0 C6 38 C6 37 68 91 37 18 
04A8 90 B6 C9 BF D0 ED A5 37 
04B0 85 33 A5 38 85 34 6C 37 
04B8 00 00 00 00 00 00 00 00 
04C0 BF 78 AD FE FF 00 AE FF 
04C8 FF 00 8D 16 03 8E 17 03 
04D0 A9 80 20 90 FF 58 00 00 
04D8 68 85 05 68 85 04 68 85 
04E0 03 68 85 02 68 85 01 68 
04E8 85 00 00 BA 86 06 38 A5 
04F0 01 E9 02 85 01 A5 00 00 
04F8 E9 00 00 85 00 00 20 B2 
0500 FE 00 A2 42 A9 2A 20 DB 
0508 FD 00 A9 52 D0 IC A9 3F 
0510 20 D2 FF 20 B2 FE 00 A9 
0518 2E 20 D2 FF A9 00 00 85 
0520 27 20 40 FE 00 C9 2E F0 
0528 F9 C9 20 F0 F5 A2 07 DD 
0530 E6 FF 00 D0 12 85 IC 8A 
0538 0A AA BD EE FF 00 85 CI 
0540 BD EF FF 00 85 C2 6C CI 
0548 00 00 CA 10 E6 4C 4B FD 
0550 00 20 BD FD 00 90 F8 20 
0558 EE FD 00 20 BD FD 00 90 
0560 F0 20 EE FD 00 20 4C FE 
0568 00 F0 IF 20 B2 FE 00 A2 
0570 2E A9 3A 20 DB FD 00 20 
0578 C5 FD 00 A9 05 20 6F FE 
0580 00 A5 C3 C5 CI A5 C4 E5 
0588 C2 B0 DF 4C 50 FD 00 4C 
0590 50 FD 00 20 FE FD 00 85 
0598 CI 86 C2 60 A5 C2 20 CC 
05A0 FD 00 A5 CI 48 4A 4A 4A 
05A8 4A 20 E4 FD 00 AA 68 29 
05B0 0F 20 E4 FD 00 48 8A 20 



05B8 D2 FF 68 
05C0 F6 90 02 
05C8 A2 02 B5 
05D0 C0 68 95 
05D8 20 0D FE 
05E0 0D FE 00 
05E8 FD 00 A9 
05F0 40 FE 00 
05F8 20 FE 00 
0600 00 C9 30 
0608 00 06 2A 
0610 2A 05 2A 
0618 3A 08 29 
0620 08 60 20 
0628 F8 68 68 
0630 91 C9 FE 
0638 FF 28 60 
0640 2D 91 30 
0648 00 D0 08 
0650 00 00 85 
0658 00 00 20 
0660 20 CC FD 
0668 C6 IE D0 
0670 00 90 0B 
0678 CI CI F0 
0680 20 A4 FE 
0688 02 85 CI 
0690 A9 05 60 
0698 C2 D0 02 
06A0 2C A9 0D 
06A8 00 ED D0 
06B0 E8 E0 16 
06B8 00 A2 2E 
06C0 00 A5 00 
06C8 A5 01 20 
06D0 FE 00 20 
06D8 FD 00 20 
06E0 86 00 00 
06E8 IE 20 83 
06F0 EA 20 BD 
06F8 IE 20 83 
0700 DC 20 CF 



4C 


D2 


FF 


18 


69 


69 


06 


69 


3A 


60 


C0 


48 


B5 


C2 


95 


C2 


CA 


D0 


F3 


60 


00 


90 


07 


AA 


20 


90 


01 


60 


4C 


4B 


00 


00 


85 


2A 


20 


C9 


20 


F0 


F9 


20 


90 


17 


20 


40 


FE 


90 


10 


20 


35 


FE 


06 


2A 


06 


2A 


06 


85 


2A 


38 


60 


C9 


0F 


28 


90 


02 


69 


CF 


FF 


C9 


0D 


D0 


4C 


50 


FD 


00 


A5 


D0 


05 


08 


20 


CC 


20 


61 


FE 


00 


2C 


F8 


60 


20 


4C 


FE 


A9 


03 


85 


9A 


A9 


99 


60 


85 


IE 


A0 


AF 


FE 


00 


Bl 


CI 


00 


20 


A4 


FE 


00 


Fl 


60 


20 


0D 


FE 


A2 


00 


00 


81 


CI 


03 


4C 


4B 


FD 


00 


00 


C6 


IE 


60 


A9 


A9 


00 


00 


85 


C2 


E6 


CI 


D0 


06 


E6 


E6 


27 


60 


A9 


20 


4C 


D2 


FF 


A2 


00 


FF 


00 


20 


D2 


FF 


D0 


F5 


20 


B2 


FE 


A9 


3B 


20 


DB 


FD 


00 


20 


CC 


FD 


00 


CC 


FD 


00 


20 


99 


6F 


FE 


00 


4C 


50 


FE 


FD 


00 


85 


01 


20 


99 


FE 


00 


85 


FE 


00 


D0 


FB 


F0 


FD 


00 


A9 


05 


85 


FE 


00 


D0 


FB 


F0 


FF 


C9 


0D 


F0 


07 
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/HI no 
0708 


20 


BD 


FD 


00 


85 


01 


86 


00 


o 


/la 


00 


IV C 

Ao 


a c 

0b 


9A 


A5 


/% ft 

00 


ft ft 

00 


48 


/ io 


TV [I 


1 


48 


A5 


02 


A Q 

48 


A5 


03 


o 


rt "7 O rt( 

0/20 


A6 


04 


IV yl 
A4 


f% C 

05 


A ft 

40 


78 


A6 


06 




— s 


fli "7 O O 


y A 


dC 


a o 
02 


C0 


4C 


4B 


FD 


00 


/ J0 


A a 
A0 


a 1 
1 


O A 

84 


BA 




B9 


88 


O A 

84 


<J 


Y) / JO 


□ "7 
D / 


Q A 

o 4 


y 


84 


93 


A9 


ft O 

02 


85 




0/40 




Ay 


A a 
40 


o c 
8 b 


BB 


20 


CF 


FF 




an AO 
/4o 


cy 


20 


F0 


r9 


C9 


0D 


TTk ft 

F0 


lA 


(J 


an ant 
0/30 


C9 


22 


D0 


D9 


20 


CF 


FF 


C9 


o 


/ DO 


o n 


F0 


26 


C9 


ft r> 

0D 


Tl ft 

F0 


ft n 

0B 


91 


o 


an c m 
0/00 


DD 


Ed 


B7 


C8 


C0 


1 ft 

10 


F0 


C5 


an £i o 
/oo 


D0 


EA 


A5 


IC 


f\ 

C9 


4C 


D0 


B2 


o 


anna 
/ / 


A9 


a a 
00 


ft f% 

00 


20 


D5 


FF 


20 


58 


o 


0778 


FE 


00 


A5 


90 


29 


10 


D0 


F0 


0780 


4C 


50 


FD 


00 


20 


CF 


FF 


C9 


o 


**T n n 

0788 


0D 


F0 


E2 


C9 


2C 


D0 


F0 


20 





1 n m 

0790 


0D 


FE 


00 


29 


0F 


F0 


D3 


C9 


ICf / 7 o 


xf O 


VOi 
C V 


r n 


O J 


Dn 


oa 


PI? 


PI? 
f c 


V ) 


07A0 


C9 


0D 


F0 


CA 


C9 


2C 


D0 


E6 


o 


07A8 


20 


BD 


FD 


00 


20 


CF 


FF 


C9 


anr^ a 
/B0 


n 

2C 


D0 


rn A 

F4 


20 


FE 


FD 


fk ft 

00 


8 5 


o 


/I ^ T% O 

07B8 


AE 


86 


AF 


20 


CF 


FF 


C9 


20 


o 


an r* a 
/C0 




Fy 


Cy 


0D 


D0 


EC 


Ab 


iC 


07C8 


Cy 


53 


r\ ft. 

D0 


F8 


fi 
20 


B2 


FE 


ft ft 

did 


o 


07D0 


A9 


1 


85 


f\ 

B9 


20 


82 


F6 


A 

4C 


o 


07D8 


50 


FD 


00 


0D 


20 


20 


20 


50 




07E0 


43 


20 


20 


53 


52 


20 


41 


43 


o 


07E8 


20 


58 


52 


20 


59 


52 


20 


53 




07F0 


50 


4D 


52 


58 


47 


3A 


3B 


4C 


07F8 


53 


86 


FD 


00 


B7 


FE 


00 


23 




0800 


FF 


00 


02 


FF 


00 


F4 


FE 


00 


Q 


0808 


El 


FE 


00 


2D 


FF 


00 


2D 


FF 


0810 


00 


IB 


FD 


00 


00 


00 


00 


00 


O 



Whew! TINYMON 1 for the VIC is now entered. Check it with 
the following program: 



Program 2. A Checking Program. 

Type the following direct line on the screen of your PET/CBM: 
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f orj = 1 024to207 1 stepSrt = Orfork = JtoJ + 7 = t + peek 
(k):next:7t;:next 

You should see the following numbers appear on the screen of your 
PET. Check them carefully. Each one represents one line of entry, 
starting at 0400 hexadecimal. If any of these totals are wrong, you've 
entered the line incorrectly. 

The numbers in parentheses appearing to the right won't 
appear on your screen; they are there to help you locate an incorrect 
line. 

When you are satisfied that the program is entered correctly, 
SAVE it to cassette tape. It may now be loaded into your VIC. 

462 255 506 399 575 541 592 511 (0400) 

769 620 756 780 802 910 886 853 

801 784 876 840 835 1383 753 

1422 589 816 720 584 680 535 576 

944 972 1130 845 876 1357 1010 1188 (0500) 

1311 852 898 1109 1125 897 809 1021 

1340 1078 1005 1212 905 902 770 1239 

762 1133 1388 652 659 629 1072 803 

748 150 617 413 1020 1030 1057 818 (0600) 

944 844 705 831 939 1072 639 1033 

943 824 1137 970 929 1149 1395 940 

654 840 807 926 706 1146 1015 1146 

1175 742 563 645 695 860 1064 1042 (0700) 

1235 1202 1355 922 1445 1346 789 1068 

1104 1204 975 1306 1339 1169 1168 1210 

1340 1204 972 522 460 520 591 942 

1010 1079 280 (0800) 
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Entering TIIMYMON1 
Directly 
Into Your VIC-20 

RUSSELL KAVANAGH 

If you are interested in learning or working with 
machine language, a "monitor" program is necessary to 
show you the condition of your machine's "registers," 
to allow you to easily enter hexadecimal numbers, and 
to permit direct SAVEing and LOADing of portions of 
memory. Elsewhere in this book, you'll find Jim Butter- 
field's "TIIMYMON1 ," a monitor for VIC. Because of 
memory constraints, it requires a PET to help with 
entering the program. This article explains how to 
type it into your VIC if a PET computer is not available 
to you. 

When I first saw Jim Butterfield's article "TINYIViON 1 ; A Simple 
Monitor For The VIC" (COMPUTE!, January 1 982, #20, pg. 1 76), I 
was very interested, since I was in need of a simple way to enter 
small machine language programs without the laborious technique 
of using BASIC POKE statements. But the fourth paragraph quickly 
diffused my elation, since it stated I needed a PET to enter the 
program. 

I don't know any PETs personally, so it at first looked as if I 
wouldn't be able to take advantage of TINYMON 1 . But a dedicated 
hobbyist, armed with motivation and a VIC memory map, can be 
unstoppable. I'm going to show you how to enter TINYMON I 
directly into the VIC. 

As I saw it, there were three problems to solve. To begin with, 
where in the VIC's memory is the program supposed to run? Second, 
how can the program be entered? Last, how can it be saved on 
cassette? Not knowing exactly where to start, I decided to take a 
closer look at the TINYMON 1 listing and see what I could learn. 

Where Does It Load? 

Since I had no idea where TINYMON I was supposed to run in the 
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VIC memory, I tried disassembling the listing. (Dissassembly, by the 
way, is a process of taking the machine language op code and 
converting it to the mnemonic, or "name," of the command.) 
Disassembly, I theorized, would perhaps lead to some clues to the 
program's location in memory. But, several bytes into the program, I 
realized that something was fishy. Some of the codes weren't even 
legitimate 6502 commands! In fact, many were ASCII characters. The 
first of the program, then, was apparently data, not program codes. 
By now, though, I was tiring of this hand disassembly process. I 
decided to turn to the VIC memory map for help. 

According to the memory map, program memory for a VIC with 
no more than 8K begins at 1 000 hex (4096 decimal). It seemed 
logical that any program loaded from cassette or entered from the 
keyboard would begin there. But the TINYMON 1 program began 
at 0400 hex, not 1000 hex. This, I figured, could simply be the 
difference in the VIC and PET memory configurations. On a hunch, I 
tried POKEing in the first several bytes from the listing, starting at 
4096 decimal. When I tried the BASIC LIST command, I got part of a 
BASIC program statement! 

So, the first part of the TINYMON 1 program was actually a 
BASIC program. A little more experimentation developed the syntax, 
or construction, of a BASIC statement, shown in Figure I . I won't try 
to go into detail here on the explanation of the syntax, but if you are 
interested, more information is in the VIC Programmer's Guide, now 
available from Commodore dealers. 

The important item to notice is that the first two bytes in each 
statement point to the beginning of the next statement. Since I 
intended to enter the code starting at 1 000 hex rather than 0400 hex, 
I knew I'd need to alter those pointers. For example, the first pointer 
(seen in the second and third bytes of the listing) was 0418 hex (the 
low order byte is always first), which would change to 1018 hex. 
Note that the first byte of any VIC BASIC program is apparently 0, 
which Butterfield refers to in his article when he describes how to re- 
enter TINYMON I . At this point, I hoped that I had solved the problem 
of where to load TINYMON 1 . The next problem to be solved was 
how to load it. 

How Can It Be Loaded? 

I could see several possibilities for entering the program. The most 
common way to load a machine language program is using a BASIC 
program with the machine language coded in DATA statements, 
and POKEing them into memory. [This is ca//ec/ a BASIC loader.] But 
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Butterfieid said this wouldn't work, since the minimal VIC with only 
3.5K of memory doesn't have enough room to contain the monitor 
and the BASIC program needed to enter it. A little arithmetic confirms 
that constraint. 

Since the POKE function requires decimal numbers, the DATA 
statements representing the machine code would most logically 
be in decimal. Most, then, will require three bytes each, since 
numbers up to 255 must be represented. The monitor is close to 1 K 
bytes in length, so just converting to decimal would multiply the 
memory required to put the monitor in BASIC DATA statements to 
probably 2.5K. 

Then, an area must be set aside to store the monitor as it is 
POKEd into memory, so we've run out of memory for the logic 
required in the BASIC program for reading the DATA statements, 
doing the POKEing, etc. One way to reduce the memory required is 
to store the machine language as hexadecimal numbers in the 
BASIC program. This helps somewhat because each machine code 
could be stored in only two bytes. But this adds to the BASIC program 
logic overhead, since we must now include a hex-to-decimal 
conversion subroutine for use with the POKE statements. And there 
is still another problem not solved. 

TINYMON 1 will be placed in the same memory area that a 
BASIC program would occupy. So, we would be POKEing the code 
atop the BASIC program that was doing the POKEing. Another 
possibility would be to enter the program byte-by-byte, using direct 
entry statements. This would be awfully slow, since each byte 
would have to be converted to decimal, then entered from the 
keyboard using POKE statements. You would have to keep up with 
the current address, too. So this doesn't seem very attractive. 

What about a BASIC program that allows the VIC to act as a 
loader for entering TINYMON 1 ? A BASIC program could very easily 
accept a hex number input from the keyboard, convert it to decimal, 
POKE it in place, increment the address, then ask for the next entry. 
This seemed like a reasonable approach, but there was still a conflict 
in memory locations. Any BASIC program entered would occupy the 
same memory locations that the start of TINYMON) occupies. Of 
course, if the BASIC program were small, then most of TINYMON 1 
could be entered using the BASIC "loader," with the rest entered 
using the direct entry method. This, then, was to be my way of 
entering TINYMON 1. But before I could do anything, I had to have a 
way to SAVE all of my efforts on cassette tape. 
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SAVEIng It 

It turned out that SAVEing the program was an easy problem to 
solve. Simply looking through the memory map, I found several 
memory locations of interest. In order for the system to keep track of 
how its memory is used, many locations contain address information 
that points (called pointers] to the beginning and end of certain 
memory allocations. A quick look at the memory map located two 
useful pointers. 

Locations 43 and 44 (in decimal) point to the start of the BASIC 
program, with the low order byte in 43, the high order byte in 44. 
Locations 45 and 46 point to the end of the BASIC program. But 
when I altered the end of BASIC pointer and tried a SAVE, the special 
test bytes I had entered into memory were not restored when I read 
the tape back in. So, back to the memory map. Sure enough, at 
locations 1 74 and 1 75 was a pointer for the tape ending address. I 
tried the test bytes again, and they were loaded back in. All I had to 
do, then, was properly set up these three pointers, and 1 could save 
any area of memory. 

If At First You Don't Succeed 

I was pretty confident that I had all of the keys needed to now enter 
TINYMONl directly into the VIC. Several nights later, after all entries 
were made and all systems appeared go, I anxiously entered RUN. 
My heart sank when I saw an ILLEGAL QUANTITY error flash onto 
the screen. No amount of rechecking or rethinking did any good. It 
just didn't work. 

After several more nights of discouragement, I put it all away, 
admitting defeat. Apparently, there was something about the 
internal operating system I didn't know, and my attempt to enter the 
program violated the VIC's integrity. I had all but forgotten about the 
program until, during one sleepless night, I resorted to reading the 
corrections column in the March 1982 COMPUTE! [Each month, any 
corrections or improvements to previously published programs are 
described on the CAPUTEIpage. See the Table of Contents. - Ed.] 
Eurekal Butterfield pointed out an error in his article on TINYMONl I 
Hoping against hope, I made the correction in my version, tried it, 
and it worked I 

Now for the details. First, enter the following program into your 
VIC just as listed. Add no spaces, or it will be too long. 

5 INPUTS 

10 PRINTS:INPUTA$:B(1)=0:B(2)=0 
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W 

O 

20 F0RI=1T02:B(I) =ASC(MID$ (A$,I,1) )-48:IFB(I) O 

>9THENB(I) =B(I) -7 
30 NEXT 



40 POKES, B(l) *16+B(2) :S=S+1:GOTO10 O 

This is the BASIC "loader." Line 5 gets the starting decimal address of ^ 
the data entry. Line 1 prints the current decimal address, then gets Q 
the data b>te, which is entered in hexadecimal form. The conversion 
to decimal is then done in lines 20 and 30. Line 40 POKEs the data 
into the current address, the address is incremented, and the process 
continues. Make a copy of this program before continuing. Any time 
POKEs are to be performed, never test anything until your latest ^ 
version is safely committed to tape. A misplaced bit may lock up the 
VIC, with no way to recover short of turning off the power, thus 
losing your program. After you've made a copy, try running it, and ^ 
confirm that it works by entering data into unused RAM (location 
5000 decimal is a good place) and verifying that the proper things 
are POKEd into the right places. Since no provision is made for W 
exiting the program, just hold down the RUN STOP key, then push 
the RESTORE key when you are done. Next, make these entries 
directly from the keyboard: ^ 

POKE 45,20 O 
POKE 46,20 
POKE 174, 20 

POKE 175, 20 O 

The VIC thinks that the end of your BASJC program has now been Q 
extended to 5 1 40 decimal (20*256 + 20 = 5 1 40). Just to verify 

that you have succeeded in tricking the VIC, try the following. First, ^ 

type in: U 

POKE 5139, 255 Q 

Then, save the program as you usually would. It should take some- , j 

what longer to save than before, since you should now be recording 
data up to location 5 1 39. Turn the VIC off and on again, type in: 

POKE 5139,0 W 

and then reload your program. If typing in ? PEEK (5 1 39) results in Q 

255, then you've done fine so far. Otherwise, recheck your pointers 

and try again. Once you've begun the program entry, don't alter the 

"loader" in any way, since this will cause BASIC to change the 

values of the pointers, resulting in unknown consequences. It 

wouldn't hurt to occasionally check the pointers before making a ^ 

o 
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O SAVE, since that takes less time than re-entering the entire TINYMON 1 

listing in case something did go wrong. 

Before you begin entering TINYMON 1 , a little extra groundwork 
will help your bookkeeping efforts. Beginning at the first of the 
TINYMON I listing, write the VIC-equivalent addresses in decimal in 

^ the left margin. Start with 4096 at 0400, and add eight to each 

r^ additional line. You should end up with 5 1 36 at the last line, given 

^ as 08 1 in the program. 

Time To Enter The Program 

The long haul can now begin. Run the BASIC program, and enter 
4232 as the starting address. (I think you should actually be able to 
start at 4219, but I didn't, for reasons 1 won't go into. But since I 
know 4232 works, that's where I'm going to suggest you begin.) 
The next prompt requires inputting of the hex number, in this case 
24, since that is the byte located at 4232 in the listing, given as 0488 
originally. Just keep on with each sequential entry, occasionally 
verifying that your present address, as displayed on the VIC, is the 
same as your place in the TINYMON I program. Note that there are 
eight bytes in each line, and that you should skip over the four-digit 
address at the first of each line. 

Enter all letters as capitals, not in lowercase as shown in the 
program, and always enter two-digit numbers, such as 00, not 0. 
Also, be careful not to confuse "8"s, "9"s, and "3"s. The printing 
wasn't clear on a couple of "S"s, making them look like "9"s. Every 
once in a while, it would be a good idea to make a copy of your 
progress, just in case a power blip comes along. If you quit for an 
extended period, be sure to write down the next starting address, 

O and begin there when you continue. Just enter that address when 

^ you run the BASIC program. If you try a ? FRE (0) command, and the 

VIC locks up, just do a RUN STOP/RESTORE. The FRE (0) command 

O sometimes doesn't work, but I've had no trouble once the TINYMON 1 

^ entry was complete. 

Make your last entry at 5 1 39. If you go past 5 1 39, you will be 
imposing on the VIC's array storage area. The last four "00"s in the 

r\ listing are not important to TINYMON 1 anyway. You'll see their use 

later on. When you've finished these entries, then it's time to make 

^ the required direct entries. You're only 136 bytes from success! 

p\ The next thing you have to do is enter the first 1 36 bytes of the 

program using POKE statements. Since this requires decimal numbers, 

^ Figure 2 lists the first part of TINYMON 1 in decimal. Type in 

^ POKE 4096, 
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and continue for the entire 1 36 entries, incrementing the POKE 
address by one each time. You can use the screen editing capability 
to avoid typing in the entire statement each time, although making 
each entry on a separate line might aid you in keeping up with the 
addresses better. Either way, it's slow, but the results will be worth it. 
The more astute reader might notice that the decimal listing has 
three entries that are different from the original; these are the changes 
made to the BASIC statement pointers. 

Checking It Out 

Once the entire listing is complete, make a copy. Now you can run 
the checking program, which will add up every eight bytes and 
display the results. By comparing the numbers displayed to those 
provided by Butterfield, you can locate errors, since an incorrect entry 
will throw off the addition. Three changes to the original addition 
results are necessary, though, since the BASIC pointer values were 
changed. The first number will be 474, the fourth 411, and the 
seventh 604. The rest are unchanged. 

One problem with the checking program as given by Butterfield 
is that it quickly fills the VIC screen with numbers, making it difficult 
to check your program. The following direct entry program takes 
care of that problem, and also adjusts for the VIC memory locations 
we've used. Enter it directly into the VIC without using a line number. 
Be sure not to push RETURN until the final NEXT is entered. You'll 
have to use a couple of BASIC abbreviations in order to fit the 
program within the VIC four-line limit. Abbreviating the last two 
NEXTs (with N-shift E) will take care of it nicely. 

Before you enter the check program, make sure the last four 
bytes (5140 through 5143) are 0, or the last check value displayed 
will be wrong. TINYIVION I doesn't actually need these bytes, and 
they are not saved on tape. But the checking program needs them. 
When using the program, just push the SPACE bar each time you 
want the next number. The longer you hold it down, the more 
numbers that will be displayed. 

FORJ=4096TO5143STEP8 :T=0: F0RK=JT0J+7 :T=T+ 
PEEK (K) :NEXT:?T:WAIT197,32,0:FORY=0TO500:N 
EXT:NEXT 

It's best to write down each check value, and after all are done, 
go back to the individual lines to find your mistakes. Just use the 
BASIC POKES and PEEKs to isolate the problems. You'll probably 
need to do a few hex-to-decimal conversions before you're through. 
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^ so here's a quick method. Multiply the first digit by 1 6, and add the 

^ second digit to the result. Remember, A = 1 0, B = 1 1 , C = 1 2, D = 1 3, 

E = 1 4, and F = 1 5. For example, A6 hex = ( I Ox 1 6) + 6 = 1 66 decimal. 

TIIMYMON1 In Action 

All that should be left now is to try it! Just type in RUN, hit RETURN, 
and the TINYMONI should display the 6502 register contents. The 
other functions are described in Butterfield's article. If for some 
^ unthinkable reason it doesn't work, all I can suggest is to check all 

f-^ pointers, and then run the checking program again. It's possible that 

you made two or more errors in a line that offset each other, giving a 
correct check value. The only way to catch that is to inspect each 
^ byte and compare it to the original listing. 

One thing I've discovered is that doing a RESTORE removes the 
O pointer that allows re-entering TINYMON I by doing a SYS 4096 

^ command. This can be fixed by POKEing the correct pointer values 

into 790 and 79 1 (decimal). For a 3.5K VIC, with TINYMON 1 at the 
O top of memofy, the pointer values (in decimal) are 790 = 27 and 

^ 79 1 = 27. The best way to make sure what these values are, in your 

particular application, is to use PEEK statements to see the contents 
n of 790 and 79 1 after TINYMON I has been RUN. 

n For VICs with More Than 8K 

^ If your VIC has more than 8K of memory, some things change in the 

memory allocations. Since I don't have a VIC with all of that memory, 
^ I can only suggest the changes that you would need to make in 

order to use TINYMON I on a VIC with the extra memory. The same 
fundamental approach should work, but the BASIC memory begins 
O at 4608 decimal ( 1 200 hex), so you'd have to change the BASIC 

program pointers. The TINYMONI itself apparently is "relocatable," 
that is, it can be placed anywhere in memory with no changes. 
Perhaps an easier approach would be to remove any extra memory, 
^ and enter the program in a 3.5K VIC, as I've described. I suspect that 

the resulting tape will then load back into any VIC, regardless of its 
memory. With the guidelines I've given, you shouldn't have any 
trouble making it work. 

One final thing I'd like to emphasize, especially to novice 
r\ programmers, is thatyou should never be discouraged by the 

^ mysteries of machine language, operating systems, memory maps, 

etc. If you are willing to experiment a little, to study articles like this, 
to experiment with other people's programs, and so on, you will be 
able to greatly extend your programming abilities. Looking back on 
my experience with entering TINYMONI, I see I've learned a great 
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deal about the VIC, which I will be able to apply to other programming 
applications. Good luck in your machine language programming 
adventures. 



Figure 1 . Internal Construction of VIC BASIC 
Statements. 

LINK TO LINE NUMBER 
NEXTSTEP , ^ . 



7 


, 




100 




PRINT 




[CLEAR] 


00 


18 


04 


64 


00 


99 


22 


93 


[HVS] 


[RIGHT] 


[RIGHT] 


[RIGHT] 


SPACE 


T 


1 


N 


12 


ID 


ID 


ID 


20 


54 


49 


9E 


Y 


M 


O 


N 


SPACE 


END OF STATEMENT 


59 


40 


4F 


4E 


20 


00 







II 



Figure 2. Decimal Equivalent of the First Part of 
TINYMON1. 
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